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FOREWORD 


This- report volume provides a programmer’s manual for an integrated budget smoothing 
and vehicle assignment model. The model was developed during a study of cost and 
performance methologies for optimal assignment of space vehicles to advanced space 
missions. The study is being performed for the National Aeronautics and Space 
Administration under Contract NAS 2-5202 and is monitored by Mr. Robert Slye and 
Mr. Harold Hornby of the Mission Analysis Division of the Office of Advanced Research 
and Technology. 

Individuals of Lockheed Missiles & Space Company, Sunnyvale, California, who 
contributed to this study are L. F. Fox, project leader; C. J. Golden, key technical 
member; and M. A. Brunet. 
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- - SUMMARY - 


, This document is Volume 3 of a three-volume series comprising a final report of the 
.Study of Systems and Cost/Performance Methodologies for Optimization of Vehicle 
Assignment. This volume is a programmer’s manual for the integrated budget smoothing 
and vehicle assignment program. Volumes 1 and 2 present a technical description and 
details on a computer program for optimal vehicle assignment, respectively. 

This volume contains appendixes that provide model input requirements, a sample 
case, flow charts, and a program listing. At the beginning of each appendix, descriptive 
details and technical comments are provided to indicate any special instructions 
.applicable to the use of that Appendix* In addition, the program listing. Appendix Ht 
includes comment cards that state the purpose of each subroutine m the complete 
iprogram and also describe operations performed within the subroutine . 


v 



Appendix E 

INPUT REQUIREMENTS 


E.l -GENERAL 

A complete glossary of input terms and detailed format requirements are included in 
this appendix. Variable names are listed by order of input in corresponding sections 
of use to make the glossary easier to use than an alphabetical listing. Comments are 
also included which describe either external or internal restrictions associated with 
the variable. 

Figure E-l illustrates the basic data deck layout for this program. The same restric- 
tions apply as described in Appendix A with the following modification. Constraint and 
budget level cards are input to the SMOOTH subroutine of this integrated program. 

The last data card input to SMOOTH is followed by a card containing only an asterisk in 
the first column. Then the control card for the next set of data appears unless there 
are no more data cases to follow. In this latter case, a blank card follows the asterisk 
card in order to terminate the run under normal circumstances. 

E . 2 INPUT 'FORM AND DE FINITIONS 

I 

Cards Variable 

‘Columns Name Format Description and Comments 

Control Card 

li— 5 NOPT 15 Code for mission/vehicle compatibility screen 

1 — AV vs. payload weight + availability + 

A Priori Assignment 

2 — (not used) 

3 — All criteria 


E-l 
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th 


I. M/.C -OufKIUti 
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i. Cards 
Columns 

Variable 

Name 

Format 

Description and Comments 

* '6— il'Ol 

MYES 

15 

Mission model duration in years / 

- o—ir5i 

IBY 

15 

Last 2 digit s of 1st year of mission model 

16-27 

» '* * M * 

GUESS 

F12.2 

Upper bound for total mission cost (SAVES 
STOEAGE SPACE IF REALISTIC VALUE) 
If GUESS = 0.0, then GUESS is assigned a 
value 1.6 E10 

28-32 

MITE 

15 

Maximum number of iterations between 
SMOOTH and ASSIGN 

33-37 

TEEF 

F5.1 

Last 2 digits of reference year for SMOOTH 

38-42 

MXITE 

15 

Maximum number of iterations between 
ASSIGN and CHOOZ 

68-69 

IG 

12 

Code for stage input* 

70-71 

IFM 

12 

Code for shared cost group input* 

72-73 

n 

12 

Code for integration cost input* 

74-75 

IM 

12 

Code for mission input* 

76-77 

ISD 

12 

Code for special program data* 

78-79 

IV 

12 

Code for vehicle input* 

Stage Information (Input only if IG > 

0) I = 1, NSTG < 50 cards 

1-2 

KODS(I) 

12 

Reference number of stage on card I 

4-7 

STG(I) 

; sE(i,jy, 

A.4 

Name of .stage on card I 

8—13' 

•3F6 .,3 

Recurring cost for first unit, of stage on card I 

14-19 

* J = 1 , 3, 


J = 1 Hardware 

20-25, 

K 

- i 


J = 2 ETR launch support 


1 

■> j 


J = 3 WTE launch support 

26-30 

1 

> ‘ PLC(l,;J) 

v 

3F5;. 3- 

Recurring cost learning curve percent for 
stage on card I in decimal form (e. g. , .95) 

31-35 

V 

J = 1,3 

\ 

f 


3 = 1 Hardware 

36-40 


J = 2 ETR launch support 

il 



J = 3 WTR launch support 

*If > 0, 

new input for this 

case 


If < 0, 

use data from previous case 
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1 Cards 
. Columns 


- *44— 49 


> 50— £5 
56-58 


,59-61 


62-64 


65-67' , 

I 

68-70T' 
71—73'' ^ 
74-76 J: 
78' 

79h 

i 

SOjJ 1 


Variable 

Name 

Format 

V 

Description and Comments 

SNR(I) . . 

F6 ..'3 

Development cost of stage on card,I 

STS (I) 

F6. 3 . 

Sustaining .cost of stage on .card I . . 

NYS(I) 

13 

First year stage on card I is available* 

LSA(I) 

13 

Last year stage on card I is available*-*- 

NBY(I) 

13 

Batching duration in years for stage recurring 
cost 

NFS(I, J) 
J = 1,4 

413 

KODEF of the shared cost groups (up to 4) to ' 
which stage belongs 

MODE (I, J) 
J = 1,3 

311 

Code to indicate type of input for recurring 
cost of stage on card I** 

J = 1 Hardware 

J = 2 ETR launch support 

J = 3 WTR launch support 


Stage Duration Information (2nd Stage Card) 


1—3 YDS(I) F3.1 Duration in -years over which. /3 function 

distributes development cost for stage on 
card I 

| Input necessary if SNR or STS ^ 0 

4—6 ,IST(I)i 13" Last 2 digits of start date for Stage Develop- 

{ ment Program 


7—9 NSFX(NSDC***)'_I3 „ Duration in years < 12 for any miscellaneous 

(fixed or development) program associated 
with stage on card I (e.g. Run out costs) . 
(Standard Development costs are distributed t 
by a Beta Function — any other development 
distribution may -be input under this special 
category . ) 



*1 corresponds to year IBY. 

+If available through mission model, any number = or > MYRS may be input. 

If number < MYRS is input then this termination date is maintained through all 
iterations . 

. **jf = o, learning curve type input 
■ ,If t .0 , jump type input 

***NSDC = Number of special development costs < 50 
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"Card" 

Column 

Variable 

Name 

Format 

* 

Description and Comments 

<32 -'34; 

f iM' : »s i 

. JST(D 

13 

Last 2 digits of start date for group Develop- ; 
ment Program — necessary if FMNR or 1 
FMSUS * -0 - ’ 

35-37 

;_i 1 1 ■ i > i ■ t 

NSFX(NSDC) 

13 

Duration in years for any miscellaneous fixed 
or development program distribution associated 
with group I. 




(Distribution input on following card.) 

If (NSFX(NSDC) ^ 0) read following card. 

1-3 

' NRFX(NSDC) 

13 

Start date for special Development cost 
associated with group I. (Referenced to 
JST(I)) 

1 

CD 
— A 

RXD(J,NSDC) 

12F6.2 

Special Development cost to be spent m year 

10 — 15' 

i J = 1,12 

Vi 


1900 + JST(I) + NRFX(NSIC) - 1 + 3 

16-21 

i 


(Input distribution) 

etc. 

14 

1 


- 


Last Group card must be followed by a blank card. 



3-5 

NFML(I) 

1 • 

13 

KODEF of .shared cost .group which is lower 
member of integration pair I 

6-8 

NFMU(I) 

13 

KODEF of shared cost group which is upper 
member of integration pair I 

9-18 

RINT (I) 

] 

PLCINjT (I) 

FI 0.0 

Recurring cost for first unit of integration I 

19-28 

F10-. 0 

Recurring cost learning curve percent for 
integration I 

29-38 

DINT(D 

F10.0 

Development cost of integration I 

39-48 

SINT (I) 

F10.0 

Sustaining cost of integration I 

49-52 

YDI(I) 

F4.1 

Development duration m years for j3 distribution 

53-55 

KST(I) 

13 

Last 2 digits of start date for integration 
development program - input necessary if ’ 
DINT or SINT ^ 0 
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> 0) I = 1, NMIS <65 

Reference number of MISSION on card I 

Name of MISSION on card I 

Priority of MISSION on card I ' 

Number of sustaining, years required for ‘ 

P LS (I) after fast launch year - 

Duration in years of any fixed or special 
development cost distribution associated with, 
mission KODEM(I) 

Characteristic velocity required m fps to 
accomplish mission on card I after attaining < 
100 n.m orbit 

Payload- weight in lb required for mission 
on card I 

Number of launches for mission on card I I ( 
in year J + 1900 + IBY — 1 ■ , 


2nd Card needed for each mission. 


Mission Data Card — (Input only if IM 


1-2 

KODEM(I) 

12 

3-8 

NAME (I) 

A6 

9-12 

PB(I) 

F4.2 

15-16 

NSYR (I) 

i 

NYRSFX(I) 

12 

17-18 

12 

19-25 ' 

YLR(I] 1 

F7-.0 

32-38 

WPR(I) 

F7 . 0- 

41-80 

MISN(I, J) 

J = 1,MYRS 

2012 
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> ' Card' { 
Column 

Variable 

Name 

Format 

i ■ 31— 12 

PLB(I) 

F10.2 

<T3)-22‘ 

PLS(I) 

F10.2 

23—32 

PLD(I) 

F10.2 

,33-37 

• y lM * 

YDPL(I) 

15 

38— 42|" : 
43-47 
48-52 
53— 57 

) RDIST(I,L) 

T < 

" ' L = 1,4 
( 

:j 

4F5.3 

Ol 

00 

1 

a> 

PLMD(I) 

t 

F10 2 

68-69 

NPLS(I) 

12 


70-71 

ME (I) 

12 

72-73 

LTR(I) 

12 

! ■' 

i 

74-75 

i 

NEE®, 

12 

76-77 

is(i) ; 

j 

12 - 

78-80 

\ 

IVEHA(I) 13 


■E-8 


Description and Comments 

Payload recurring cost for mission KODEM(I) 

Payload sustaining cost _ _ , 

\ 

Payload development cost ■ 

Duration in years over which development cost 
is to be distributed by Beta Function 

Input recurring cost distribution for PLE in ' 
decimal form (e.g. EDIST(I,1) = 05) 


Maximum diameter of payload for MISSION:; 
on card I 

Code for payload stabilization requirement' 

0 — No requirement 

1 — Must be spin stabilized 

2 — Must not be spin stabilized 

Code for man-rating requirement for Mission 
on card I 

0 1 — 'No requirement 
1 — Must be man-rated 
Code for launch .site of Mission 

1 - ETE 

2 - WTE 

j 

Number of restarts required for Mission 

Last 2 digits of start year for development 
cost PLD(I) 

A priori vehicle assignment for Mission on 
card I- 

If no vehicle assigned — 0 input; KODEV of 
vehicle input otherwise - * 



Last Special Program Data card must be followed by a blank card. 




( . i < 

■oft 

f i \ 

• (Card"' 
Column 

Variable 

Name 

Format 

Vehicle Data Card (Input only if IV s 

>■ i « t<t 

1-8 

VEH(I, J) 
I = 1,4 

- 412 

“• '9— r 2'l 

B1(J) 

E13.6 

22-34 

B2(J) 

E13.6 

35-47 

B3(J) 

E13.6 

48-60 

B4(J) 

E13.6 

79-80 

KODEV(J) 

12 

2nd Card needed for each vehicle. 

4-5 

NVS(J) 

12 


6-7 

MRV(J) 

12 

8-9 

NRP(J) 

12 

80 

JKEY , 

'll 


! 


■ Input only if JKEY * 0 


'E-10 


i’’ ■ U'-K.f Fi J _ f 


Description arid Comments 
0) J = 1, NV_< 60 

KODS of stage in Itlrposition, where' I s ! 

corresponds to booster, for vehicle on card J 
O' 

i Payload vs. characteristic velocity curve 
V constants for performance evaluation of 
vehicle on card J PL = EXP(B1 - B2*V-B3/ 
(B4-V)) and V = Excess Velocity = Total , 
Characteristic Velocity-Circular Velocity 
at 100 n.m. 

l 

Reference number of vehicle on card J 


Code for stabilization of vehicle on card J ; 

1 — Is Spin stabilized 

2 — Is not spin stabilized 

Code for man- rating of vehicle on card J 

0 — Is not man-rated 

1 — Is man-rated 

Number of restarts possible for vehicle on 
card J 

Code Tor recurring cost distribution for 
vehicle on card J 

JKEY = i0 — Standard distribution is used 

1st year of distribution - 05 Recurring cost 

2nd year of distribution = 20 Recurring cost 

3rd year of distribution = 50 Recurring cost 

4th year of distribution = .25 Recurring cost 

= Launch year generating this recurring 
cost 

JKEY = 1 - Distribution is to be input on . . 
following card „ , 




’ L\ - *' >'•<)'( 
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1 ■ Card* • 
Column 

Variable 

Name 

. 09-13' . 

> 

14-18; j 
..19—23 Jj 

ihnh * tj i * J\j 

ALPI(I,J) 
I = 1,4 


‘1 

* I 

» , j 

Format Description and Comments 

4F5.2 _ Input Recurring cost distribution for vehicle, i 

on card J in year I where 1 = 4 corresponds > 
to year of launch " ' 


Last Vehicle Data card must be followed by a blank card. 


Budget Smoothing Data is input in subroutine SMOOTH using a CALL INPUT statement. 
The following variables may be input at this time. 


Variable 

Name 


Description and Comments 


TITLE (I) 

LEVEL(J) 

ISTRT 

IFIN 

MAXITR 

NCSTE 

NPROG(K) 

KPROG(K) 

KODE(K) 
CS(K) 
FIXED (I) 

PMAX 
PMIN . 


Output page HEADING — if no input,, blank s are outp ut. 

40 characters are allocated for storage, f 
e.g. TITLE = 'LUNAR OPTION 1 

YEARLY DESIRED FUNDING LEVEL (20 year maximum) 
e.g. LEVEL = 300., 375., 18 x 300 

FIRST YEAR of smoothing interval — referenced to 
TREF = 1 

Last year of smoothing interval — referenced to TREF 

Maximum number -of, iterations allowed jper case in 
SMOOTH subroutine : 

Number of constraints on mission programs < 60 

The reference number (KODEM or KODESP) of the 
mission being constrained 

The reference number (KODEM or KODESP) of the 
constraining program or mission 

Code number for type of constraint ^ 11 

Constant associated with each constraint 

Yearly total fixed overhead costs (I = 1,20) 

If no input, is set to zero 

Constants associated with PLOT2 - if no input they are 
set to 5000. and 1500. respectively 


E-ll 




; c .• . f m mi ‘in< 


i *_ a r *\ 


-(KjOtlfl* 1 
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''Variable 

Name 


Description and Comments 


'“ACCL 

i .! I'i.’O 

EXT 

»* i » u ' * n 


\ 


Code for use of acceleration .option-— if no input it is 
set - .TRUE 


Code for use ]of extension option — if no input it is 
set = .TRUE. 

If FALSE is input these options will not be used. 


The next card contains an * in" the “first column. 

The next card is either a new control card for the next case of data or a blank card 
so that the run is terminated under normal circumstances . 


A 
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Appendix F 
SAMPLE CASE 


E.l ! DESCRIPTION 

The output from one of the more interesting sample cases is presented in this section.. 
Data is not realistic and no significance should be attached to the values used. The 
listing includes a module map so that storage requirements are defined for each 
subroutine and common block. 


Data input to the program which is used m the ASSIGN algorithm is output in the same 
format as for the general assignment program described in Appendix B. After the 
optimum assignment has been listed, any input to subroutine SMOOTH is automatically 
output as it appears on the data cards. "Average" recurring cost data for each of the 
vehicles in the optimum assignment is calculated in VEHRC and output on the following 
page. Each vehicle is assigned a key number used internally which is output with the 
associated stage component names defining the vehicle. 


The breakdown of costs by program and type, and by' program and’ year on the following 
pages are essentially the same as for the original budget smoothing model (Ref. 4, 

Vol. 1). For example, the Mars 71 mission (PN = Program Name) has development 
start date m 1969, has no development '(DEVL)’ costs and hence no development 
duration (YRS). Sustaining costs (SUST) start m year 1969 (= START + SS - 1.) 

They are spent for 3‘ (SD) years. Recurring costs start in year 1969 (= START + 

RS - 1. ) and’last for’ 3 (RD) years. The distribution follows on the same line (e.g. , 
$12.00 myear 1969, $25.00 myear 1970 and $12,00 in year 1971). On the following 
line fixed miscellaneous costs are similarly listed if any have been input for that 
program, (e.g. , Fixed costs start in year 1971 (= START + RS - 1.) and last for 
2 years (RD). The distribution follows on the same line of output. More complete 
data on these entries are provided in the reference indicated. 


F-l, 
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Programs associated with missions are output-first. For the selected sample case 
Programs 1 thru 14 are mission related. Programs 15 and 16 are miscellaneous 
programs having no associated launches and the remaining program, are -development 
or sustaining costs associated with. launch vehicles. These last programs are identified 
by the decision number used in the ASSIGN algorithm. A list of decision numbers, 
their associated values and types of expenditure has been output previously for 
reference . 

The section "Total Program Costs and Launch Vehicle Schedule" is output as m the 
original smoothing program with the following modification. Instead of printing the 
launch vehicle key name under its associated program and year of launch, the key 
number already output with each corresponding vehicle name is substituted for 
simplicity. 

A plot follows this tabulated data showing actual yearly totals (*) and desired yearly 
level of spending (0). The smoothed data is then output using the same formats. Only 
data input to SMOOTH directly from ASSIGN and the final smoothed data are output.- 
bitermediate output is suppressed. 

•f" 

No output appears if__all input data meet input constraints. If any constraint is violated, 
however, the program number and type of constraint is output. The program continues 
to smooth the data anyway since the violation may be Removed by internal shifting. • : 
However, the warning that the input data does not meet all constraints will alert the 
user to possible discrepancies inhis input data.. 

Current dimensional constraints on the program are all listed in Appendix E for input 
variables. There is one additional internal dimensional constraint. MASTER 
automatically constrains development costs, corresponding to the optimum assignment, 
to their associated launch dates. Ninety constraints are provided at present. However, 
m general it is not possible to anticipate the exact number of such automatic constraints 
to be generated. To alert the user if a problem does exist for some input data, the 
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program prints out a.notice when..ninety constraints -have, been generated in MASTER. 
Then the SMOOTH subroutine is entered. If no more constraints are added to the set 
from MASTER, the program smoothes the data under the ninety" constraints computed 
in MASTER. Otherwise the program- terminates the case with an output explanation 
and goes back to ASSIGN where it looks for new data. This dimensional restriction 
can ibe' relieved whenever necessary by increasing the associated dimensional variables. 

The sample case presented in this section is particularly interesting because itidemon- 
strates the interrelationship between the 2 programs ASSIGN and SMOOTH. The 
program required 1. 60 mins, on the 360/67 computer at Ames Laboratory, Moffett 
Field, California. A description of the over-all output is provided below in outline 
form. 

F. 1 . 1 First Iteration 

Input data was purposely constrained so that a key stage (B2S) is not available until. - 
the 3rd year after the reference year (1971). 

The optimum assignment is determined based 'on 4 main stages, T3D, TRAN, CENT 
and B2S. The total program cost is $521. 92 (M). 

SMOOTH shifts B2S stage '(Dev. Cost 7) so that its 'development start date is 1969 
instead of the previous 1973. Other mission dates are also shifted and costs modified: 
(Each change is marked 'with an *)> 

F.1.2 Second Iteration 

Using these shifted dates and costs ASSIGN determines a new optimum assignment 
based on 3 main stages, (T3B, T3D, T3M), (AGD, AGLT) and B2S. The total program 
cost is $418.99. (More than $100.00 less than first iteration solution). 
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SMOOTH shifts the new program- data-such’ that Dev-. Cost -7 (B2S-stage)-has its 
development start date moved to 1971. Hence it is not available until 1973. 

F. 'll' 3 J '-Third -Iteration - 

Using the shifted data from SMOOTH, ASSIGN determines that the new optimum' 
assignment is the same as the optimum assignment determined an iteration two. 

The total cost is $484.54 based on modified data. 

SMOOTH changes some dates in the new input, but since these changes are small and 
the final RMS value equals the input data RMS value (within 0.4) the program terminates. 

The assignment input to SMOOTH with its corresponding distribution dates represents; 
the optimum solution within Hie budget smoothing constraints. 

F. 2 SAMPLE CASE PRINTOUT 

A. 

The sample ease: printout follows. 
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{1 

F88-LEVEL 'VfwKAGE EDITOR OPTIONS SPECIFIED LISTtMAP 

VARIABLE OPTIONS USED - S 1 2£* H 26976 ♦ 24576 ) OEFAULT OPTIONIS) USED 

IEHOOOO INCLUDE DECKS IKDXOlCL *H0X02MS> 

IEHOOOO INCLUDE OECKSl H0X02BS.M0X02RU .H0X02CR, Al INPT,M0X01UP'H0X02AT) 

IEHOOOO INCLUDE OECKS IH0X02TT*H0X02ST > 

IEHOOOO INCLUDE 0ECKSIHQX02AN,M0X02SH ,H0X02VCtHOX02DC) 

IEHOOOO INCLUDE DECKS (M0X02CZ iMQXOlPX, KQX02AI , HOX02CL t MDX02LD ) 

IEHOOOO ENTRY HA IN 


MODULE HAP 


CONTROL SECTION ENTRY 


NAHE ORIGIN 

LENGTH 

NAHE 

LOCATION 

NAME 

LOCATION 

NAHE 

LOCATION 

NAHE 

CLEAR 

00 

38 








MAIN 

38 

1528 








SMOOTH 

1560 

2 13C 








flEVALU 

3fcA0 

A7A 








CONSTR 

3B1 8 

3EC 








ALINPT 

3F08 

B 1 A 

INPUT 

3F08 






UHPLOT 

AA28 

F68 

PL0T1 

AA5A 

PL0T2 

AC76 

PL0T3 

AE3A 

PLOTA 




OMIT 

51E6 

PLTAPE 

S22A 




AFRHT 

5990 

AO 








TCOST 

59D0 

78A 








SHIFT 

6188 

7D8 








ASSIGN 

6960 

2130 








STGNUH 

8A90 

F98 








VEHRC 

9A28 

2D8 








0EC1SN 

9000 

ED8 








CHOOZ 

ABDB 

15AA 








PACK 

Cl 20 

E8 

UNPACK 

CI72 

ITEM 

C1B6 




AVAIL 

C208 

710 








CAPABL 

C918 

652 








LBOUND 

CF70 

952 








IHCSLOG * 

oaca 

IBA 

AL0G10 

oaca 

A LOG 





1HCSEXP * 

DA88 

1B0 

EXP 

OA88 






IHCFRX PR* 

DC 3 8 

183 

FRXPR» 

DCSd 






ihcecohh* 

ODCO 

F31 











IBCOH= 

DO CO 

FOIOCS* 

DE7C 

INTSWTCH 

ECOE 


IHCC0HH2* 

ECFB 

5A5 









- 


SEQOASD 

EF58 






1HCFHAXI* 

P2A0 

C9 

HAXO 

F2A0 

HIND 

F256 

AHAXO 

F26C 

AMINO 

IHCSSQRT* 

F310 

1A9 

SORT 

F310 






1HCFCVTH* 

FA 60 

1175 









LOCATION 


AFBA 


f282 


F-5 f 



NAHE "ORIGIN LENGTH 


IHCEFNTH* 

105D8 

512 

PI DCS* * 

10AF0 

160 

IHCEFIOS* 

10C50 

me 

IHC6RRH * 

11070 

SAC 

IKCUOPT * 

12320 

398 

IHCETRCH* 

126B8 

28E 

IKCUATBL* 

12948 

638 

SAVES 

12F80 

1660 

S&VEA 

1A5E0 

2160 

SAVEA1 

16740 

33 C 

SAVEB 

16AB0 

lBDO 

SAVEBt 

18650 

410 

PLSAVE 

18A60 

138 

SAVECZ 

18B98 

3654 

ASGN 

1C1F0 

438 

SAVEOC 

1C 62 6 

5A8 

SAVESH 

1CBD0 

30F6 

SAVECL 

1FCC8 

BF8 

SAVED 

205CO 

690 

SAVEL2 

20C5D 

FO 

SAVENV 

20D40 

8 

BATCH 

20048 

2C 

SAV6SG 

20078 

4 

SCRACH 

20080 

47*4 

SAVELB 

25528 

108 

SAVENR 

25630 

5 


NAHE 

LOC AT ION 

NAME 

LOCATION 

NAHE 

LOCATION 

NAHE 

LOCATION 

ADCON= 

F460 

FCVAOUTP 

F50A 

fcvloutp 

F59A 

FCVZOUTP 

E66A 

FCVIOUTP 

FA76 

FCVEOUTP 

FF78 

FCVCOUTP 

10192 

1NT6SHCH 

10478 

ARITH» 

105DB 

AOJSWTCH 

10944 





SET899 

10B7C 

RESB99 

10B96 





F10CSBEP 

10C56 







ERRHON 

11D70 

IHCERRE 

11088 





1HCTRCH 

126B8 

ERRTRA 

126C0 






6WTRY AODRESS 38 

TOTAL LENGTH 25638 

****HAJN DOES NOT EXI5T BUT HAS BEEN ADDED TO DATA SET 


STAGE 

COST DATA 
















TITLE 

RECURRING LC 

RECURRING LC RECURRING LC DEVElOPHENT 

SUSTAINING 

AVAILABLE 

SHARED 

' COST GROUPS' 

BfTCH 

FACT 


(HARDWARE) 

(ETR ONLY) 

IHTR ONLY) 



FROH 

TO 






SV3A 

6.89 

0.950 

6.23 

0.950 

3.27 

0 950 

0.0 

3.37 

1 

5 

1 

0 

0 

0 t' 

5 


AG 0 

1.8T 

0.900 

1.40 

0.900 

2.50 

0.900 

0.0 

2.60 

1 

20 

2 

7 

0 

0 . 

6 


RECURRING COST TYPE 

1 FOR X 

LESS THAN 

OR = 

2.00, TOTAL 

COST » 

2. 30. FOR X GREATER 

THAN 

2.00, 

TOTAL 

COST - 

P .60 

X ♦ 

SV3C 

7.09 

0.850 

6.43 

0.850 

3.47 

0.850 

0.0 

0.0 

1 

20 

1 

0 

6 

0 

r 4 


CENT 

11.85 

0.900 

4.62 

0.900 

4.62 

0.900 

25.30 

16.00 

1 

20 

4 

0 

0 

0 

5 


T3B 

4.91 

1.000 

1.44 

1.000 

1.44 

1.000 

0.0 

0.0 

1 

20 

3 

8 

0 

0 

3 


T3D 

S- 14 

0.950 

5.01 

0.950 

3.45 

0.950 

o.o 

o.o 

1 

£0 

3 

6 

6 

0 

3 


TRAN 

6.09 

1.000 

0.0 

1.000 

0.0 

1.000 

0.0 

0.0 

1 

20 

3 

0 

0 

0 

* 4 


AGLT 

3.50 

1.000 

0.0 

1.000 

0.0 

1.000 

17.50 

1.20 

3 

20 

2 

9 

0 

0 " 

r - 5 


RECURRING COST TYPE 

2 FOR X 

LESS THAN 

OR » 

2.00, TOTAL 

COST - 

2.30. FOR X GREATER 

THAN 

2.00t 

TOTAL 

COST * 

0,40 

X + 

SV3X 

6*66 

0.850 

5.76 

0.850 

2.58 

0.850 

13.00 

0,0 

3 

20 

1 

10 

0 

0 

. 5 4 


T3H 

22.00 

0.950 

5.01 

0.950 

3.45 

0.950 

25.00 

0.0 

3 

20 

3 

u 

0 

o . 

3 


62S 

0.87 

1.000 

0.10 

1.000 

0.10 

1.000 

Q. 25 

0,10 

3 

20 

5 

0 

0 

0 

5 



SHARED COST DATA 


NO. 

TITLE 

DEVELOPMENT 

SUSTAINING 

1 

ATLS 

0.0 

4.66 

3 

TITN 

0.0 

6.00 

5 

B2S 

0.0 

0.0 

7 

AG 0 

o.o 

0.0 

9 

AGLT 

0.0 

0.0 

11 

T3H 

0.0 

o.o 

2 

AGEN 

0.0 

2.50 

4 

CENT 

0.0 

0.0 

6 

T3D 

0.0 

0.0 

8 

T3B 

0.0 

0.0 

10 

SV3X 

0.0 

0.0 


F-6 



INTECRAT I ONCOST DATA 


LOWER 

GROUP 

UPPER 

GROUP 

RECURRING LC 

DEVELOPMENT 

SUSTAININ 

T1TN 

AG6N 

0.0 

1.000 

14.00 

0.0 

T3D 

AG 0 

0.0 

1.000 

2.50 

Q.O 

T30 

AGLT 

0.0 

1.000 

5.50 

0.0 

TITM 

CENT 

0.0 

1.000 

80. 00 

0.0 


MISSION KUDEl. 


MISSION 

VELOCITY 

PAYLOAD 

PRIORITY 

1 MARS71 

41500. 

1100. 

1.00 

Z PIONER 

49000. 

460. 

1.00 

3 MARS73 

40000. 

6000. 

1.00 

4 MERCRY 

30900. 

1000. 

0*50 

5 GRD1RT 

49500. 

800. 

0.50 

6 HARS75 

39400. 

3000. 

0.50 

7 COMET 

37200. 

2000. 

0.50 

8 ASTRA 

26300. 

7000. 

0.50 

9 REITIV 

14200. 

2000. 

0.50 

10 PIONQE 

51400- 

1000. 

0.50 

11 ATS 

33600. 

4000. 

1.00 

12 ORELAT 

14200. 

2000. 

0.50 

13 USAKSC 

33 600. 

4100. 

0*50 

14 U5AH5H 

30000. 

6800. 

0.50 


LAUNCH SCHEDULE 

71 72 73 74 75 76 

2 0 0 O 0 0 

0 110 5 0 

0 0 2 0 0 0 

0 0 0 0 1 0 

0 0 0 1 0 0 

0 0 0 0 2 0 

0 0 0 0 0 2 

0 0 0 0 0 1 

0 0 0 1 0 0 

0 0 0 0 1 o 

0 1 I 0 0 o 

oooooi 

0 0 5 0 1 0 

0 0 0 0 0 2 


F-7 



NUMBER OF STACES II 

NUMBER OF VEHICLES 20 

NUMBER OF FAMILIES 11 

NUMBER OF INTEGRATION COSTS 4 

NUMBER OF MISSIONS 14 

NUMBER OF YEARS 6 

LAUNCH BASE YEAR 71 

TOTAL COST ESTIMATE 600,00 


QUANTITIES TRANCHE!) UPON 

DEVELOPMENT SUSTAINING 


1 

0.0 

3,37 

SV3A STAGE 

z 

30.00 

2.60 

AG D STAGE 

3 

25.30 

16.00 

CENT STAGE 

4 

17.50 

K20 

AGLT STAGE 

5 

13.00 

0.0 

SV3X STAGE 

6 

25.00 

0.0 

T3M STAGE 

7 

0.25 

0.10 

B2S STAGE 

B 

10.00 

4.66 

ATLS SHARED 

9 

0.0 

6.00 

TITN SHARED 

10 

0.0 

2.50 

AGEN SHARED 

11 

14.00 

0.0 

INTEGRATION OF TITN 

12 

2.50 

0.0 

INTEGRATION OF T30 

13 

5.50 

0.0 

INTEGRATION OF T3D 

14 

81.00 

0.0 

INTEGRATION OF TITN 



YEAR AVAIL 

LAST YEAR 

DEV START 

DEVi pURATION 


1 

5 

1970 

0. 


1 

6 

" 1971 

0. 


1 

6 

1969 

3. 


3 

6 

1970 

4. 


3 

6 

1970 

4. 


3 

6 

1970 

4. 


3 

6 

1973 

1- 


l 

6 

1969 

3. 


1 

6 

1970 

o. 


1 

6 

1970 

0. 

AND AGEN 

1 

6 

1969 

3. 

ANO AG D 

1 

6 

1969 

1. 

AND AGLT 

3 

6 

1969 

5. 

AND CENT 

1 

6 

1968 

2* 


F-8 




VEHICLE/ 

hiss: 


(1 = 

POSSIBLE) 

- 

1 l I I 

L 1 1 1 1 

VEHICLE / MISSION 

123456789012 

3 4 5 6' 



MISSION NUMBER 

1 

2 

2 

3 

4 

5 

6 

7 

8 

9101 11 1121314 

1 

T3B 

AG 0 


0 

0 

0 

0 

0 

0 

0 

0 

l 

1 

0 

0 

0 

1 

0 

0 

2 

T3B 

AG 0 

B2S 

0 

0 

0 

0 

t 

0 

0 

0 

1 

l 

0 

0 

0 

l 

0 

0 

3 

T3B 

CENT 

' 

0 

0 

0 

0 

1 

0 

0 

i 

1 

1 

0 

1 

1 

1 


l 

4 T3B 

CENT 

82$ 

0 

0 

1 

0 

1 

0 

0 

1 

1 

1 

0 

0 

l 

1 


1 

5 

T3D 

TRAN 


0 

0 

0 

0 

1 

0 

0 

1 

1 

1 

0 

1 

1 

1 


1 

6 T3D 

TRAN 

82S 

0 

0 

0 

0 

1 

0 

1 

1 

1 

1 

0 

0 

1 

1 


1 

7 

T30 

AG 0 


1 

0 

0 

0 

l 

0 

1 

1 

1 

1 

0 

1 

1 

1 


1 

B 

T3D 

AG D 

82S 

0 

0 

1 

0 

1 

1 

1 

1 

1 

1 

0 

0 

1 

1 


1 

9 

T3D 

AGLT 


0 

0 

1 

0 

1 

0 

I 

1 

1 

l 

0 

o 

l 

1 


1 

10 

130 

AGLT 

B2S 

0 

0 

1 

0 

1 

1 

1 

1 

1 

1 

0 

0 

1 

1 


1 

11 

T3D 

CENT 


1 

1 

1 

1 

1 

l 

1 

1 

1 

1 

0 

1 

1 

1 


1 

12 

T3D 

CENT 

82S 

0 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

0 

1 

1 


1 

13 

SV3A 

AG D 


0 

0 

0 

0 

0 

0 

0 

0 

0 

l 

0 

0 

0 

0 

0 

0 

14 

SV3A 

AG D 

B2S 

0 

0 

0 

0 

1 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

15 

SV3C 

CENT 


0 

0 

0 

0 

1 

0 

0 

1 

1 

l 

0 

1 

i 

l 

0 

0 

16 SV3C 

CENT 

B2S 

0 

0 

0 

0 

1 

0 

0 

1 

1 

1 

0 

0 

1 

1 

1 

0 

17 

SV3X 

CENT 


0 

0 

0 

0 

1 

0 

0 

1 

1 

1 

0 

0 

1 

1 

1 

1 

18 

SV3X 

CENT 

B2S 

0 

0 

0 

0 

1 

0 

0 

i 

1 

1 

0 

0 

1 

1 

1 

1 

19 

T3H 

AGLT 


0 

0 

1 

l 

1 

1 

1 

1 

1 

1 

o 

0 

l 

1 

1 

1 

20 

T3H 

AGLT 

B2S 

0 

0 

1 

1 

1 

1 

1 

1 

l 

1 

1 

0 

1 

1 

1 

1 


ON CAPABILITY 
0 - IMPOSSIBLE) 

L 1 2 2 2 2 22 2 2 2 2 ) 3 ) 3 3 3 3 3 3 3 M U 
8901234567890123*567690123*5 


************* SOLUT ION ************ 

165 293*56 222.85 


516.41 


MISSION 

Characteristic 

PAYLDAO 

LAUNCH 

NUMBER 

OPTIMUM 

TITLE 

VEL0C1TVIFT/SECV 

( LBS > 

YEAR 

OF LAUNCHES 

LAUNCH VEHICLE 

HARS71 

41500. 

1100 

1971 

2.00 

T3D 

CENT 

P ] ONER 

49000. 

460. 

1972 

1.00 

T30 

CENT 




1973 

1.00 

T3R 

CENT B2S 

HARS73 

40000. 

600 0. 

, 1973 

2.00 

T3t> 

CENT 

MERCRY 

38900. 

1000. 

1975 

0.50 

T3D 

TRAN 

GRDTRT 

49500. 

800. 

1974 

0.50 

T30 

CENT 

HARS75 

39400. 

3000. 

1975 

1.00 

T3D 

TRAN BZS 

COMET 

3T20Q. 

2000. 

1976 

1.00 

730 

TRAN 

ASTRA 

2630 0. 

7000. 

1976 

0.50 

T30 

TRAN 

R6LT1V 

14200. 

2000. 

1974 

0.50 

T30 

TRAN 

P IONOE 

51400. 

1000. 

1975 

0.50 

T30 

CENT B2S 

ATS 

33600. 

4000. 

1973 

1.00 

T30 

TRAN 




1973 

1.00 

T3D 

TRAN 

ORELAY 

14200. 

2000. 

1976 

0.50 

T30 

TRAN 

USAMSC 

33600. 

4100. 

1975 

0.50 

T30 

TRAN 

U5AKSM 

30000. 

6B00. 

1976 

1.00 

T3D 

TRAN 



N ***«*«< 

►*•* 




164 


299, 

,07 

222.85 

521, 

.92 


P-9 



MISSION 'characteristic payload 

TITLE VELOCITY (FT/ SEC 1 (LBS) 


LAUNCH NUMBER 
YEAR OF LAUNCHES 


OPTIMUM 

LAUNCH VEHICLE 


MARS71 

41500 

1100. 

PI ONER 

49000. 

460. 

KARST3 

40000. 

6000. 

MERCRY 

38900. 

1000, 

GftOTfiT 

49500. 

800. 

HARS75 

39400. 

3000. 

COMET 

37200. 

2000. 

ASTRA 

2 6300. 

7000. 

RELTIV 

14200. 

2000. 

PION0E 

5 1400. 

1000. 

ATS 

33600. 

4000. 

ORELAY 

14200* 

2000. 

USAHSC 

33600. 

4100. 

USAMSM 

30000. 

6600. 


1971 

2.00 

T3tl 

CENT 

1972 

1.00 

T30 

CENT 

1973 

1.00 

T3B 

CENT B2S 

1973 

z.uo 

T30 

CENT 

1975 

0.50 

T3D 

TRAN 

1974 

0.50 

T30 

CENT 

1975 

L .00 

T30 

TRAN B2S 

1976 

1.00 

T30 

TRAM 

1976 

0.50 

T30 

TRAN 

1974 

0.50 

T30 

TRAN 

1975 

0.50 

T3D 

CERT B2S 

1972 

1.00 

T30 

TRAM 

L9T3 

t.oo 

T30 

TRAN 

1976 

0.50 

T30 

TRAN 

1975 

0.50 

T3D 

TRAN 

1976 

1.00 

T3D 

TRAN 


THE OPTIMUM SOLUTION HAS BEEN DETERMINED 


TITL6««TE5T CASE', 
LEVEL-20X100., 

ISTRT-1, !FIN«6t HAXITR.IO, 


NCSTR-2, 
NPR0G»l#LOi* 
PHAX-700. , 


KPR0G«3,0, 


CS— l.,1970., 


F-10 



RECURRING COST DATA 


KEY NAME 


UNIT COST 


A TBB CENTB2S 

5 T3D TRAN 

6 T3l> TRANR7S. 

11 T3D CENT 

12 T3D CENTR2S 


20*05 

16.92 

19.01 

26.96 

25.66 




REFERENCE 

YEAR 

1969. 


TEST CASE 





PN 

NAME 

START 

DEVL 

YRS 

SUST 

ss 

SD 

RS 

RO 

RECURRING OR 

FIXED 

ITEMS 

1 

KARS71 

1969. 

0. 

0. 

6. 

1 

3 

1 

3 

12. 

25. 

12. 










3 

2 

1. 

2. 



2 

PIONER 

1900. 

0. 

0. 

0. 

l 

0 

70 

5 

1. 

6. 

16. 

16. 

3 

HARS73 

1900. 

0. 

0. 

0. 

1 

0 

71 

6 

2. 

10. 

25. 

12. 

6 

HERCRY 

1900. 

0. 

0. 

0. 

1 

0 

73 

6 

0. 

2. 

5. 

3. 

5 

GROTRT 

1900. 

0. 

0. 

0. 

1 

0 

72 

6 

I. 

2. 

6. 

3. 

6 

HARS75 

1900. 

0. 

0. 

0. 

1 

0 

73 

6 

1. 

6. 

10. 

5. 

7 

COMET 

1900. 

0. 

0. 

0. 

1 

0 

76 

6 

1. 

3. 

8. 

A. 

B 

ASTRA 

1900. 

0. 

0. 

0. 

1 

0 

76 

6 

0. 

2. 

6. 

2. 

9 

RELTIV 

1900. 

0. 

0. 

0. 

1 

0 

72 

6 

0. 

2. 

6. 

2. 

10 

PIONOE 

1900. 

0. 

0. 

0. 

1 

0 

73 

6 

1. 

3. 

6. 

3. 

11 

ATS 

1900. 

0. 

0 . 

0. 

1 

0 

70 

5 

I 

6. 

12. 

13. 

12 

DREIAY 

1900. 

0. 

0. 

0. 

1 

0 

76 

6 

0. 

2. 

6. 

2. 

13 

USAHSC 

1900. 

0. 

0. 

0. 

1 

0 

73 

6 

0. 

2* 

6. 

2. 

16 

USAHSH 

1900. 

0. 

0. 

0. 

1 

0 

76 

6 

1. 

3. 

8. 

6. 

L5 

IMAGE 

1969. 

50. 

5. 

60. 

6 

2 

0 

0 

0. 




16 

PRETEN 

1972. 

2. 

1. 

10. 

1 

3 

0 

0 

0 . 












3 

1 

15. 




17 

DEV 3 

1969. 

25. 

3. 

16. 

2 

6 

0 

0 





U 

DEV 7 

1973, 

0. 

1. 

0 . 

1 

3 

0 

0 





19 

DEV 9 

1970. 

0. 

0. 

6. 

l 

5 

0 

0 





20 

DEV 16 

1968. 

60. 

2. 

0. 

2 

0 

0 

1 

0 

1 

1. 




TOTAL 


1 58. 


267. 










J?-ll 



TOTAL" PROGRAM' COSTS 'ANO'TaONCH'VEMICLE 'SCHEDULE 

YEAR 1969. 1970. 1971. 1972. 1973. 1974. 1975. 1976. 1977. 1976. 1979. 19BQ. 1961. 1982. 1983. 1984. 1965, 1986. 1967. 1966. 

PROGRAM 


l HARS71 

16. 

26. 

17. 

2. 








11* 






2 P10NER 

1. 

6. 

16. 

16. 

5. 








11* 

4* 




3 MARS73 

0. 

2. 

10. 

25. 

12. 









11* 




4 MERCRY 

0. 

0. 

0. 

0. 

2. 

5. 

3 









5* 


5 GROTRT 

0. 

0. 

L. 

2. 

6, 

3 









11* 



6 MARS75 

0. 

0. 

0. 

1. 

4. 

10.. 

5. 









6* 

* 

7 COHET 

0. 

0. 

0. 

0. 

1. 

3. 

8 

(J 4 









5* 

8 ASTRA 

0. 

0. 

0. 

0. 

0. 

2. 

4. 

2 









5* 

9 RELTIV 

0. 

0. 

0. 

2. 

4. 

2. 









5* 



10 PIONOE 

0. 

0. 

0. 

1. 

3. 

6. 

3. 









12* 


11 ATS 

1. 

4. 

12. 

13. 

4. 








5* 

5* 




12 ORELAY 

0. 

0. 

0. 

0. 

0. 

2. 

4. 

2. 









5* 

13 USAHSC 

0. 

0. 

0. 

0. 

2. 

4. 

2* 









5* 


14 USAMSH 

0. 

0. 

*0. 

0. 

1. 

3. 

8. 

4. 









5* 

15 IMAGE 

5. 

12. 

16. 

52. 

45. 




16 PRETEN 

0. 

0. 

0. 

12. 

10. 

25. 



17 OEV 3 

7. 

28. 

23. 

16 . 

16. 

16. 

16. 


18 DEV 7 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


19 DEV 9 

0. 

6. 

6. 

6. 

6. 

6. 



20 OEV 14 

40. 








SUM 

69. 

87. 

101. 

149. 

122. 

86. 

54. 

13. 

FIXED 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

TOTAL 

69. 

87. 

101. 

149. 

122. 

88. 

54. 

13. 


♦ 

* 

* 

* 

* 

* 



LEVEL 

TOO. 

100. 

100. 

100. 

100. 

100. 

.100. 

IDO. 


RMS - 26. SMOOTHING INTERVAL 1969. THRU 1974. 


ITERATION 1 


F-12 



p 

ft 

D 

G 

R 

A 

H 

L 

E 

V 

E 

L 



YEAR 


REFERENCED EAR 1969T~ ~T€'ST~CA"SE' 


PM MAKE 

START 


DEVL 

YRS 


SUST 

SS 

SD 

RS 

RD 

RECURRING OR FIXED ITEMS 

1 MARS 7 I 

1969. 


0. 

0. 


4. 

1 

3 

I 

3 

12. 

25. 

12. 











3 

2 

1. 

2. 



2 PI ONER 

1900, 


0. 

0. 


0. 

1 

0 

70 

5 

1. 

6. 

16. 

16. 

3 HARS73 

1902. 


0. 

0. 


0. 

1 

0 

71 

4 

2. 

10. 

25. 

12. 

4 HERCRY 

1903. 


0. 

0. 


0. 

1 

0 

73 

A 

0 

2. 

5, 

3. 

5 GROTRT 

1903. 


0. 

0. 


0. 

1 

0 

72 

4 

1. 

2. 

6. 

3. 

6 MARS75 

1903. 


0. 

0. 


0. 

1 

0 

73 

A 

1. 

A. 

10. 

5. 

7 COH6T 

1902. 


0. 

0. 


0. 

1 

0 

7A 

A 

1. 

3 

8. 

A. 

8 ASTRA 

1900. 


0. 

0. 


0. 

1 

0 

7A 

A 

0* 

2. 

4. 

2. 

9 REI.TIV 

1901. 


0. 

0. 


0. 

I 

0 

72 

4 

0. 

2. 

A. 

2. 

10 PIONGE 

1901. 


0. 

0. 


0. 

1 

0 

73 

A 

1. 

3. 

6. 

3. 

II ATS 

1900. 


0. 

0. 


0. 

1 

0 

70 

5 

1. 

4. 

12. 

13. 

12 ORELAY 

1900. 


0. 

0. 


0. 

1 

0 

7A 

A 

0. 

2. 

A. 

2. 

13 U5AM5C 

1901. 

# 

0. 

0. 


0. 

1 

0 

73 

A 

0. 

2. 

A. 

2. 

1A USAMSH 

1900. 


0. 

0. 


0. 

1 

0 

74 

A 

1. 

3. 

8. 

A. 

15 IMAGE 

1969. 


52. 

6. 

* 

28. 

A 

3 

1 

0 

0. 




16 PRETEN 

1972. 


2. 

2. 

« 

12. 

2 

3 

1 

0 

0. 













A 

1 

15. 




17 OEV 3 

1969. 


25. 

3. 


16. 

2 

6 

0 

0 





18 DEY 7 

1969. 

* 

0. 

A. 

* 

0. 

3 

3 

3 

0 





19 DEY 9 

1969. 

* 

0. 

0. 


6. 

1 

5 

0 

0 





20 DEV 14 

1968. 


88. 

3. 

* 

0 . 

2 

0 

1 

0 














2 

1 

1. 




TOTAL 



168. 



256. 

















* INDICATES 

CHANGE 

FROM 

INPUT 

DATA 



63. 8A. 


F-13 



"TOTAL "PROGRAM^ COST S' AND~TAUNCH YEHICl£~SCHEOUCE' 

YEAR 1969. 1970. 1971. 1972. 1973. 1974. L97S. 1976 1917. 1978. 1979. 1980. 1981. 1982. 1983. 1986. 1985. 1986. 1987. 1988. 

PROGRAM 


i HARS71 

16. 

28. 

17. 

2. 










11* 








2 P1UNER 

1. 

6. 

16. 

16. 

5. 







■* 



11* 












4* 






3 MARS73 

0. 

0. 

0. 

2. 

10. 

25. 

12. 











11* 




4 MERC ft Y 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

2. 

5. 

3. 











5* 

5 GROTRT 

0. 

0. 

0 

0. 

0, 

1. 

2. 

6. 

3, 











U* 


6 MARS 75 

0. 

0. 

0. 

0. 

0. 

0. 

1. 

4. 

10. 

5. 











6* 

7 COMET 

0. 

0. 

0. 

0. 

0. 

0. 

1. 

3. 

8. 

4. 











5* 

6 ASTRA 

0. 

0. 

0. 

0. 

0. 

2. 

4. 

2. 











5* 



9 RELTIV 

0. 

0. 

0. 

0. 

2. 

4. 

2. 











5* 

- 



10 PIONOE 

0. 

0. 

0. 

0. 

1- 

3. 

6. 

3. 











12* 



11 ATS 

1. 

4. 

12. 

13. 

4. 










5* 

5* 






12 DRELAY 

0. 

0. 

0. 

0. 

0. 

2. 

4. 

2. 











5* 



13 US AMS C 

0. 

0. 

0. 

0. 

0. 

2. 

4. 

2. 











5* 



14 U5AHSH 

0. 

0. 

0. 

0. 

1. 

3. 

a. 

4. 











5* 



15 IMAGE 

3. 

9. 

13. 

41. 

37. 

31. 





16 PRETEK 

0. 

0. 

0. 

1. 

13. 

12. 

27. 




17 OEV 3 

7. 

28. 

23. 

16. 

16. 

16. 

16. 




16 DEV 7 

0. 

0. 

0. 

0. 

0. 






19 DEV 9 

6. 

6. 

6. 

6. 

6. 






20 DEV 14 

42. 

23. 









SUM 

76. 

105. 

88. 

98. 

96. 

100. 

90. 

29. 

26. 

12. 

FIXED 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

TOTAL 

76. 

105. 

88. 

98. 

96. 

100. 

90. 

29. 

26. 

12. 


* 

* 

* 

* 

* 

* 






LEVEL 

"TTjo. 

100. too. 

100. 100. 100. 100. roo. 100. 100. 

RMS - 

11. 

SMOOTHING 

INTERVAL 1969. THRU 1974. 

ITERATION 

9 




P-14 



p 

R 

0 

0 

R 

A 

K 

L 

E 

V 

E 

L 


700. 

600. 

500. 

M>0. 

300. 

200 . 

100 . 

0 . 

69. 70. 71. 72. 73. 74. 75. 76. 77. 78. 79. 80. 01. 82. 83. 84. 

YEAR 

FINAL CASE 



LAUNCH VEHICLE REOUI REMITS BY YEAR 


YEAR 

LV 

TOTAL 

1969. 

1970. 

1971. 

1972. 

1973. 

1974. 

1975. 

1976. 

1977. 

1978, 

4 

1.00 

o.a 

0.0 

0.0 

0.0 

1*0 

0.0 

0.0 

0.0 

0.0 

0.0 

5 

6.50 

0,0 

0.0 

0.0 

1.0 

1.0 

0.0 

0.5 

2.5 

0.0 

1,5 

6 

1.00 

0.0 

0.0 

0.0 

0.0 

0.0 

0,0 

0.0 

0.0 

0.0 

1.0 

11 

5.50 

0.0 

0.0 

2.0 

1.0 

0.0 

0.0 

2.0 

o.o 

0.5 

0.0 

12 

0.50 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.5 

0.0 

0.0 


F-15. 



QUANTITIES BRANCHED^! PON' " 



DEVELOPMENT 

SUSTAINING 


YEAR AVAIL 

LAST YEAR 

DEV START 

DEV DURATION 

1 

0.0 

3.37 

SV3A STAGE 

1 

5 

1970 

0 . 

2 

30.00 

2.60 

AG 0 STAGE 

1 

8 

1971 

0 . 

3 

25.30 

16.00 

CENT STAGE 

1 

8 

1969 

3- 

4 

17.50 

1.20 

AGLT STAGE 

3 

8 

1970 

4. 

5 

13.00 

0,0 

SV3X STAGE 

3 

8 

1970 

4. 

6 

25.00 

0.0 

T3H STAGE 

3 

8 

1970 

4. 

7 

0.40 

0.16 

B2S STAGE 

2 

6 

1969 

4. 

6 

10.00 

4.66 

ATLS SHARED 

1 

8 

1969 

3- 

9 

0.0 

6.00 

TITN SHARED 

1 

a 

1969 

0 . 

10 

0.0 

2.50 

AGEN SHARED 

1 

8 

1970 

0. 

11 

14.00 

0.0 

INTEGRATION Of TITN AND AGEN 

I 

8 

1969 

3. 

12 

2.50 

0.0 

INTEGRATION OF 730 AN& AG 0 

1 

8 

1969 

1- 

13 

5.50 

0.0 

INTEGRATION Of T3D ANO AGLT 

3 

8 

1969 

5. 

14 

89.00 

0.0 

INTEGRATION OF TITN ANO CENT 

i 

8 

I960 

3. 


V'E~ H I~c L B~rK~l S S I 0~H c A"P A 6 f L T T - V 
(1 ° POSSIBLE* t> « IMPOSSIBLE) 

I 1 I t l 1 1 1 11 Z 2 2 2 32 2 2 2 2 3 3 3 3 3 3 3 3 3 3 4 4 4H4 
VEHICLE / MISSION 1 2 3 4 3 6 T 8 9 0 1 2 3 4 $ 6 7 8 9 D 1 2 3 4 S i 7 6 9 O I 2 3 4 5 & 7 8 9 0 1 2 3 4 S 



MISSION NUMBER 

1 

2 

2 

3 

4 

5 

6 

7 

8 

910HH121314 

1 

T3B 

AG D 


0 

0 

0 

0 

0 

0 

0 

0 



0 

0 

0 

1 

0 

0 

2 

T3B 

AG 0 

B 2S 

0 

0 

0 

0 


0 

0 

0 



0 

0 

0 

1 

0 

0 

3 

T3B 

CENT 


0 

0 

0 

0 


0 

0 

1 



0 

2 

1 

1 


1 

4 

T3B 

CtNT 

825 

0 

1 

1 

0 


0 

0 

I 



0 

l 

1 

1 


1 

5 

T3D 

TRAN 


0 

0 

0 

0 


0 

0 

1 



0 

1 

1 

I 


1 

6 

T30 

TRAN 

B2S 

0 

0 

0 

0 


0 

l 

l 



0 

1 

1 

1 


1 

7 

T3D 

AG 0 


1 

0 

0 

0 


0 

I 

1 



0 

2 

1 

1 


1 

3 

T3D 

AG D 

B2S 

0 

l 

I 

0 


1 

1 

l 



0 

1 

1 

1 


1 

9 

T30 

AGLT 


0 

a 

1 

0 


0 

1 

1 



0 

0 

1 

1 


1 

10 

T3D 

AGLT 

62S 

0 

0 

1 

0 


1 

1 

1 



0 

0 

1 

1 


1 

11 

T3D 

CENT 


1 

1 

1 

1 


1 

1 

l 



0 

1 

1 

1 


1 

12 

T3D 

CENT 

BZ5 

0 

1 

1 

1 


1 

1 

1 



1 

1 

1 

1 


1 

13 

SV3A 

AG 0 


0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

14 

SV3A 

AG 0 

B2S 

0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

8 

0 

0 

0 

0 

15 

SV3C 

CENT 


0 

0 

0 

0 


0 

0 

1 



0 

I 

1 

1 

0 

0 

16 

SV3C 

CENT 

82S 

0 

0 

0 

0 


0 

0 

1 



0 

1 

1 

1 

1 

0 

17 

SV3X 

CENT 


0 

0 

0 

0 


0 

0 

1 



0 

0 

1 

1 

1 

1 

13 

SV3X 

CENT 

BZS 

0 

0 

0 

0 


0 

0 

1 



0 

0 

1 

l 

1 

1 

19 

T3M 

AGLT 


0 

0 

1 

1 


1 

1 

1 



0 

0 

1 

1 

1 

1 

20 

T3M 

AGLT 

B2S 

0 

0 

1 

1 


1 

1 

1 



1 

0 

1 

1 

1 

1 


************* SOLUTION ************ 

53 230.36 184. 12 414.4a 


F-16 



MISSION 

^CHARACTERISTIC 

PAYLOAD 

launch’ 

NUMBER 

OPTIMUM 

TITLE 

VELOCITY IFT/SECJ 

(LBS) 

YEAR 

OF LAUNCHES 

LAUNCH VEHICLE 

HARS7L 

41500. 

1100. 

1971 

2.00 

T3D 

AG D 

PtONER 

49000. 

460. 

1972 

1.00 

T30 

AG D B2S 




1973 

1.00 

T3D 

AC 0 82S 

MARS73 

40000. 

6000. 

1975 

2.00 

T3H 

AGLT 

HERCRY 

38900. 

1000. 

1970 

0*50 

T3R 

AG D B2S 

GRDTRT 

49500. 

aoo. 

1977 

0.50 

T3D 

AG D B2S 

HARS75 

39400* 

3000. 

1978 

1.00 

T3D 

AG D 

COMET 

37200. 

2000. 

1978 

1*00 

T30 

AG D 

ASTRA 

26300. 

7000* 

1976 

0.50 

T3R 

AG 0 

RELTIV 

14200. 

2000. 

1975 

0.50 

T3B 

AG D 

PIONOE 

51400. 

1000* 

1976 

0.50 

T3H 

AGLT B2S 

ATS 

33600. 

4000. 

1972 

1.00 

T3D 

AG 0 




1973 

1.00 

T30 

AG D 

□RELAY 

14200. 

2000. 

1976 

0.50 

T3B 

AG 0 

USAHSC 

33600. 

4100. 

1976 

0.50 

T30 

AG D 

U5AMSM 

30000* 

6600. 

1976 

1.00 

T3D 

AG 0 

********1 


M ************ 




53 


234,87 

164.12 

418. 

94 


MISSION 

CHARACTERISTIC 

PAYLOAD 

LAUNCH 

number 

OPTIMUM 

TITLE 

VELOCITY IFT/S6C1 

(LBS 1 

YEAR 

OF LAUNCHES 

LAUNCH VEHICLE 

MARS 71 

41500. 

1100. 

1971 

2.00 

T3D 

AG D 

P I ONE R 

49000. 

460. 

1972 

I. 00 

T30 

AG D B2S 




1973 

1.00 

T30 

AG 0 B2S 

HARS73 

40000. 

6000. 

1975 

2.00 

T3H 

AGLT 

MERCRY 

38900. 

1000. 

1478 

0.50 

T3B 

AG 0 B2S 

GROTRT 

49500. 

800. 

1977 

0.50 

T30 

AG 0 B2S 

HARS75 

39400. 

3000. 

1978 

1.00 

T30 

AG 0 

COMET 

37200. 

2000. 

1978 

1.00 

T3D 

AG 0 

ASTRA 

26300. 

7000. 

1976 

0.50 

T3B 

AG D 

RELTIV 

14200. 

2000. 

1975 

0.50 

T3B 

AG D 

P ICHOE 

51*00. 

IOOO. 

1976 

0.50 

T3M 

AGLT 02 S 

ATS 

33600. 

4000. 

1972 

1.00 

T3D 

AG 0 




1973 

1.00 

T30 

AG D 

ORELAY 

14200. 

2000. 

1976 

0.50 

T3B 

ag n 

USAHSC 

33600. 

4100. 

1976 

0.50 

T30 

AG 0 

US AMS M 

30000. 

6800. 

1976 

1.00 

T30 

AG D 


THE OPTIMUM SOLUTION HAS BEEN DETERMINED 


F-17 



RECURRING COST DATA 


KEY NAME 


UNIT COST 


1 T3B AG 0 9.Z8 

2 T3B AG DB2S 9.40 

7 T3D AG D 13*83 

8 T3D AG 0R2S 15*31 

19 T3H AGIT 29.97 

20 T3M AGLTR2S 28*66 


REFERENCE YEAR 1969. TEST CASE 


FN NAME 

START 

OEVL 

YRS 

SUST 

SS 

SO 

RS 

RD 

RECURRING OR 

FIXEO 

ITEMS 

' 1 NARS71 

1969. 

0* 

0. 

A. 

1 

3 

1 

3 

7-. 

14. 

7. 







* 


3 

2 

1. 

2 > 



2 PI ONER 

1900. 

0. 

0. 

0. 

1 

0 

70 

5 

1. 

4. 

11. 

11. 

3 MARS73 

1902. 

0. 

0. 

0. 

1 

0 

71 

A 

0. 

15. 

30. 

15. 

A HERCRY 

1903. 

0. 

0. 

o. 

1 

0 

73 

4 

o. 

1. 

3. 

2. 

5 GRDTRT 

1903, 

0. 

0. 

0. 

I 

0 

72 

A 

0. 

2. 

A. 

z. 

6 HARS75 

1903. 

0. 

0. 

0. 

1 

0 

73 

A 

1. 

3. 

7, 

3. 

N 7 COMET 

1902. 

0. 

0. 

0. 

1 

0 

74 

A 

1. 

3. 

7. 

3. 

8 ASTRA 

1900. 

0. 

0. 

0. 

1 

0 

74 

A 

0. 

2. 

1 

2. 

9 RECTIV 

1901. 

0. 

0. 

0. 

1 

0 

72 

A 

0. 

1. 

l. 

2. 

10 PIONOE 

1901. 

0. 

0. 

0. 

1 

0 

73 

4 

1 

3. 

7. 

4. 

n ATS 

1900. 

0. 

0. 

0. 

1 

0 

70 

5 

1. 

3. 

10. 

to. 

12 DRELAY 

1900. 

0. 

0. 

0. 

1 

0 

74 

4 

0. 

1. 

1. 

2. 

13 USAMSC 

1901. 

0. 

0. 

0. 

l 

0 

73 

4 

0. 

1. 

3. 

2. 

14 USAMSM 

1900. 

0. 

0. 

0. 

1 

0 

74 

A 

1. 

3- 

7. 

3. 

15 IMAGE 

1969. 

52. 

6. 

28. 

A 

3 

0 

0 

0* 




16 PRETEN 

1972, 

2. 

2. 

12. 

2 

3 

0 

0 

0. 











A 

1 

IS. 




17 OEV 2 

1971. 

0. 

0. 

3. 

1 

7 

0 

0 












1 

2 

10 

20. 



18 DEV A 

1970. 

18. 

A. 

1. 

3 

5 

0 

0 





19 OEV 6 

1970. 

25. 

A. 

0. 

3 

0 

0 

0 





20 DEV 7 

1969. 

0. 

A. 

0. 

3 

8 

0 

0 





21 DEV 9 

1969. 

0. 

0. 

6. 

1 

7 

0 

0 





22 OEV 10 

1970. 

0. 

0. 

3. 

1 

7 

0 

0 





23 DEV 11 

1969. 

1A. 

3, 

0. 

2 

0 

0 

0 





2A OEV 12 

1969. 

3. 

i. 

0. 

1 

0 

0 

0 





TOTAL 


1 1 A. 


215. 










18 



YEAR 1969. 1970. 

10. 17, 


TOTAL PROGRAM COSTS AMD CAUNCH VEHICLE SCHEDULE 
1971. 1972. 1973. 1976. 1975. 1976. 1977. 1978. 1979, i960. 19B1. 1982. 


1903. 1906. 1985. 19B6. 1907. 198B. 


PROGRAM 
l MARS71 


2 P I ONER 

3 MARS73 
6 HERCRY 

5 GRDTRT 

6 MARS75 

7 COMET 
a ASTRA 
9 RELTIV 

10 PIOMOE 

11 ATS 

12 DRELAY 

13 USAHSC 
1A USAHSH 

15 IMAGE 

16 PRET6N 

17 DEV 2 
16 DEV A 

19 DEV 6 

20 DEV 7 

21 DEV 9 

22 OEV 10 

23 DEV 11 
2A DEV 12 


1. 

0. 


0 . 

0. 

3. 

0. 

0. 

0. 

0. 

0 . 

6. 

0 . 

A. 

2* 


0, 

0 . 

0. 

0. 

0. 

0. 

3. 

0. 

0. 


0. 

3. 

A. 

0. 

6 . 

3. 

7. 


11 . 

7* 

II. 

0. 

0. 

0. 


0. 

0. 

10 . 

0. 

0. 

0. 

13. 

0. 

13. 


6 . 

3. ' 

A. 


11 . 

8* 

0. 


0. 

0. 


0. 

0. 

10 . 

7* 

0. 


41. 

1. 

23. 


6 . 

3. 


15. 

0. 


0. 

1. 

u 

3. 

7* 

0. 

0. 

1. 

37. 

13. 

3. 

A. 

A. 

0. 

6 . 

3. 


30. 

0. 

0. 

0. 


1. 

3. 


1. 

3. 

31. 

12 . 

3. 


0. 

6 . 

3. 


15. 

19* 

0. 


1* 

7. 


27. 

3. 


0. 

6 . 

3. 


3. 

3. 


2 . 

1* 


A. 

20 * 


2 . 

1* 

2. 

7* 

3 

7* 


0. 

3. 


2 . 

2 * 


3. 

7* 

3. 

7* 


SUM 


27. 56. 85. < 113. 


FIXED 

■"o. 

0. 

0. 

0. o. 

0. 

0. 

0. 

0. 

0, 

TOTAL 

27. 

56. 

65. 

113. 9A. 

96. 

BO. 

31. 

22- 

9, 


* 

* 

* 

* • 

* 





LEVEL 

100. 

100. 

100. 

100. 100. 

100. 

100. 

100. 

100* 

100. 

RMS - 

36. 

SMOOTHING 

INTERVAL 1969 

. THRU 

197A* 




ITERATION 

1 










F-19 



p 

R 

O 

G 

R 

A 

H 

L 

E 

V 

E 

L 



YEAR 


REFERENCE YEAR 1969. TEST CASE 

PN NAHE START OEVL YRS SUST SS SD R$ RD RECURRING OR FIXED ITEMS 

1 MARS71 1969. 0. 0. 4. I 3 1 3 7. 14. 7. 

3 2 1. 2. 

2 P I ONER 1902. * 0. 0. 0. 1 0 70 5 1. 4. 11. II. 4. 

3 HARS73 1902. 0. 0 0. 1 0 71 4 0 15. 30. IS. 

4 HERCRY 1903. 0. 0. 0. 1 0 73 4 0. 1. 3, 2. 

5 GRDTRT 1904. * 0. 0. 0. 1 0 72 4 0 2. 4. 2. 

6 HARS75 1903. O. O. O* 1 O 73 4 1. 3. 7. 3. 

7 COMET 1902. 0. 0. 0. 1 0 74 4 1. 3. 7. 3. 

$ ASTRA 1901. * 0. 0. 0. 1 0 74 4 0 1. 1. 2. 

9 RELTIV 1903. * 0. 0. 0. I 0 72 4 0. 1. 1. 2. 

10 P10N0E 1903. * 0. 0. 0. I 0 73 4 1 3. 7. 4. 

11 ATS 1900. 0. 0. 0. 1 0 70 5 1. 3. 10. 10. 3. 

12 ORELAY 1901. * 0-0. 0. 1 0 74 4 0. I. 1. 2. 

13 USAMSC 1903. * 0. 0. 0. 1 0 73 4 0. 1. 3. 2. 

14 USAHSH 1902. * 0. 0. 0. I 0 74 4 1. 3. 7. 3. 

15 IMAGE 1969. 76. 5. * 31. 4 4 -1 0 0. 

16 PRETEN 1969. * 3. 4. * 14. 3 3 2 O 0. . 

6 1 15. 

17 OEV 2 1969. * 0. 0. 3. 1 7 0 O 

1 2 10 . 20 . 

18 DEV 4 1969. * . 36. 3. * 2. 2 7-1 0 

19 DEV 6 1969. * 27. 6. * 0. 4 0 2 0 

20 DEV 7 1971. * 1, 3. * 0. 2 10 -1 0 

21 DEV 9 1 969. 0. 0. 6. 1 7 0 0 

22 DEV 10 1969. * 0. 0. 3. 1 7 0 0 

23 DEV 11 1969. 49. 2. * 0. 2 0-1 0 

24 DEV 12 1969. 3. 1. 0. 1 0 0 0 


TOTAL 


195. 


268. 


* INDICATES CHANGE FROM INPUT DATA 
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TOTAL PROGRAM COSTS ANDTAUNCH "VEHICLE SCHEDULE 

YEAR 1969. 1970. 1971. 1972. 1973. 1974. 1975. 1976. 1977. 1978. 1979. 1980. 1981. 1982. 1983, 1984. 1985. 1986. 1987. 1988. 

PROGRAM 


1 HARS71 

10. 

17. 

11. 

2. 













7* 











2 P TONER 

0. 

0. 

1. 

4. 

u. 

11. 

4. 













8* 

8* 







3 MARS 73 

0. 

0. 

0. 

0. 

15. 

30. 

15. 














19* 







4 MERCRY 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

1. 

3. 

2. 














2* 




5 GRDTRT 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

2 ► 

4. 

2. 














a* 




6 MARS75 

0. 

0. 

0. 

0. 

0. 

0. 

1. 

3» 

7. 

3. 














7* 




7 COHET 

0. 

0. 

0. 

0. 

0. 

0. 

1. 

3. 

7. 

3. 














7* 




8 ASTRA 

0. 

0. 

0. 

0. 

0. 

0. 

1. 

1. 

2. 














1* 





9 RELTIV 

0. 

0. 

0. 

0. 

0. 

0. 

1. 

1. 

2. 














1* 





10 PIONOE 

0. 

0. 

0. 

0. 

0. 

0. 

U 

3. 

7. 

4. 














20* 




11 ATS 

1. 

3. 

10. 

10. 

3. 













7* 

7* 









12 0R6LAY 

0. 

0. 

0. 

0. 

0. 

0. 

1. 

1. 

2. 














1* 





13 USAHSC 

0. 

0. 

0 

0. 

0. 

0. 

0. 

1. 

3. 

2. 














7* 




14 USAH5M 

0. 

0. 

0. 

0. 

0. 

0. 

1. 

3. 

7. 

3. 














7* 




15 IMAGE 

7. 

19. 

24. 

49. 

38. 

31. 

31. 







16 PRETEN 

0. 

1. 

15. 

15. 

14. 

15. 








17 OEV 2 

13. 

23. 

3. 

3. 

3. 

3. 

3. 







18 06V 4 

9. 

19. 

11. 

2 . 

2. 

2- 

2. 

2. 






19 OEV 6 

2. 

5. 

7. 

7. 

5. 

2. 








20 OEV 7 

0. 

0. 

0. 

1. 

0. 

0. 

0. 

0. 

0 

0. 

0. 

0. 

0. 

21 OEV 9 

6. 

6. 

6 

6. 

6. 

6. 

6. 







22 OEV 10 

3. 

3. 

3. 

3. 

3. 

3. 

3. 







23 OEV 11 

24. 

24* 





< 







24 DEV 12 

2. 






' 







SUM 

78. 

119. 

91. 

101. 

100. 

102. 

70. 

21. 

46. 

20. 

0. 

0. 

0. 


“ . 

~ ~ 








- 




FIXED 

0. 

0 . 

0 . 

0. 

0. 

0 . 

0. 0. 

0. 

0. 

0. 

0 . 

0 . 

TOTAL 

78 . 

119. 

91. 

101. 

100. 

102. 

70. 21. 

46. 

20. 

0. 

0 . 

0 . 

LEVEL 

* 

100. 

* 

100. 

* 

100. 

* 

100. 

* 

100. 

* 

100. 

100. 100. 

100. 

100. 

100. 

100. 

10D* 

RHS - 
ITERATION 

13. 

7 

SMOOTHING 

INTERVAL 1969 

, THRU 

1974. 
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p 

R 

0 

G 

R 

A 

H 

L 

e 

v 

E 

L 


* 700 . 


600 . 


500 . 


400 . 


300 . 


200 . 


100 . 


0 . 



69 . 70 . 71 . 72 . 73 . 74 . 


75 . 76 . 77 . 78 . 79 . 80 . 


81 . 


PINAL CASE 


YEAR 








82 .* 83 . 


LAUNCH VEHICLE REQUIREMENTS BY YEAR 


YEAR 

LV 

TOTAL 

1969 . 

1970 . 

1971 . 

1972 . 

1973 . 

1974 . 

1975 . 

1976 . 

1977 . 

* 1978 . 

1979 . 

1980 . 

1981 . 

I 

1.50 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

1.5 

0.0 

0.0 

0.0 

0.0 

2 

0.50 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.5 

0.0 

0.0 

0.0 

7 

7.50 

0.0 

0.0 

2.0 

1.0 

1.0 

0.0 

0.0 

0.0 

0.0 

3.5 

0.0 

0.0 

0.0 

8 

2.50 

0.0 

0.0 

0.0 

0.0 

0.0 

1.0 

1.0 

0.0 

0.0 

0 5 

0.0 

0.0 

0.0 

19 

2.00 

0.0 

0,0 

0.0 

0.0 

0.0 

0.0 

2.0 

0.0 

0.0 

. 0.0 

0.0 

0.0 

0*0 

20 

0.50 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.5 

0.0 

0.0 

0.0 



84 . 
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QUANTITIES 'BRANCHED UPON 



DEVELOPMENT 

SUSTAINING 


YEAR AVAIL 

LAST YEAR 

DEV START 

DEV OUR AT I qN 

1 

0.0 

3.37 

SV3A STAGE 

1 

5 

1970 

0* 

2 

30.00, 

2.60 

AG 0 STAGE 

1 

8 

1969 

0. 

3 

25.30 

16.00 

CENT STAGE 

1 

8 

1969 

3. 

4 

35.75 

1.75 

AGLT STAGE 

1 

8 

1969 

3. 

5 

13.00 

0.0 

SV3X STAGE 

3 

8 

1970 

4. 

6 

27.50 

0.0 

T3H STAGE 

4 

8 

1969 

6. 

7 

0.82 

0.26 

B2S STAGE 

3 

8 

1971 

3. 

8 

10.00 

4.66 

ATLS SHARED 

1 

8 

1969 

3. 

9 

0.0 

6.00 

TITN SHARED 

1 

8 

1969 

0. 

10 

0.0 

2.50 

AGEN SHARED 

1 

8 

1969 

0. 

U 

48.86 

0.0 

INTEGRATION OF TITN AND AGEN 

1 

8 

1969 

2. 

12 

2.50 

0.0 

INTEGRATION OF T3D AND AG 0 

1 

8 

1969 

1. 

13 

5.50 

0.0 

INTEGRATION OF T30 AND AGLT 

3 

8 

1969 

5. 

14 

89.00 

0.0 

INTEGRATION OF TITN AND CENT 

1 

8 

1968 

3. 


VEHICLE / MISSION 


ICLE/MI'SSIQN CAPABILITY 
(I * POSSIBLE* 0 • IMPOSSIBLE) 


12 3 4 5 6 7 


1 1 11 1 1 111122222222223333333333444444 
9O123456789O123456789O123456709O12345 


MISSION NUMBER 


1 

T3B 

AG D 


2 

T3B 

AG 0 

B2S 

3 

T38 

CENT 


4 

T3B 

CENT 

B2S 

5 

T3D 

TRAN 


6 

T3D 

TRAN 

82S 

7 

T30 

AG D 


8 

T3D 

AG 0 

B2S 

9 

T3D 

AGLT 


10 

T3D 

AGLT 

B2S 

11 

T3D 

CENT 


12 

T3D 

CENT 

62S 

13 

SV3A 

AG 0 


14 

SV3A 

AG D 

BZS 

15 

SV3C 

CENT 


16 SV3C 

CENT 

025 

17 

SV3X 

CENT 


18 

SV3X 

CENT 

B2S 

19 

T3H 

AGLT 


20 

T3H 

AGLT 

B2S 


1 

2 

2 

3 

4 

5 

6 

7 

B 

9101111121314 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

1 

1 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

1 

0 

0 

1 

1 

1 

0 

1 

1 

1 

1 

1 

0 

1 

1 

0 

1 

0 

0 

1 

1 

1 

0 

0 

1 

1 

1 

1 

0 

0 

0 

0 

1 

0 

0 

1 

1 

I 

0 

1 

1 

1 

1 

1 

0 

0 

0 

0 

1 

0 

1 

1 

1 

1 

0 

0 

1 

1 

1 

1 

1 

0 

0 

0 

1 

0 

1 

1 

1 

1 

0 

1 

1 

1 

1 

1 

0 

1 

1 

0 

1 

1 

1 

1 

1 

1 

0 

0 

1 

1 

1 

1 

0 

1 

1 

0 

1 

0 

1 

1 

1 

1 

0 

0 

1 

1 

1 

1 

0 

1 

1 

0 

1 

1 

11 

1 

1 

0 

0 

I 

1 

1 

1 

1 

1 

1 

l 

1 

1 

1 

1 

1 

1 

0 

1 

1 

1 

1 

1 

0 

1 

1 

1 

1 

l 

1 

1 

1 

1 

1 

0 

1 

I 

1 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

l 

1 

1 

0 

i 

1 

1 

0 

0 

0 

0 

0 

0 

1 

0 

0 

1 

1 

1 

0 

0 

1 

1 

1 

0 

0 

0 

0 

0 

1 

0 

0 

1 

1 

1 

0 

0 

l 

1 

1 

1 

0 

0 

0 

0 

1 

0 

0 

1 

t 

t 

0 

0 

1 

1 

l 

1 

0 

l 

1 

1 

1 

1 

1 

1 

1 

1 

0 

0 

0 

1 

1 

l 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

0 

0 

1 

1 

1 


SOL U T ION ************ 
229.38 


38 


249.81 


479.19 



MISSION 

CHARACTfcRlSTIC 

PAYLOAO 

LAUNCH 

NUMBER 

0P7 IfllJM 

TITLE 

VELOCITY 1 FT/SEC) 

(LBS) 

YEAR 

OF LAUNCHES 

LAUNCH VEHICLE 

MARS71 

41500. 

1100. 

1971 

2.00 

T3D 

AG D 

PIONER 

49000. 

4 60. 

1974 

1.00 

T30 

AG 0 B2S 




1975 

1.00 

T3D 

AG 0 B2S 

HARS73 

40000. 

6000. 

1975 

2.00 

T3H 

aglt 

MERCRY 

3B900. 

1000. 

1978 

0.50 

T3R 

AQ 0 B2S 

GROTRT 

49500. 

800. 

1978 

0.50 

T3f) 

AG D B2S 

HARS75 

39400. 

3000. 

1978 

1.00 

T30 

AG 0 

COMET 

37200. 

2000. 

1978 

1.00 

T30 

AG 0 

ASTRA 

26300. 

7000. 

1977 

0.50 

T3R 

AG 0 

RELTIV 

14200. 

2000. 

1977 

0.50 

T3B 

AG 0 

PIONOE 

51400. 

1000. 

1978 

O.SO 

T3H 

AGLT B2S 

ATS 

33 600. 

4000. 

1972 

1.00 

T30 

AG 0 




1973 

1.00 

T30 

AG 0 

ORELAY 

14200. 

2000. 

1977 

0.50 

T3B 

AG D 

USAKSC 

33600. 

4100. 

1978 

0.50 

T3D 

AG D 

USAMSH 

30000, 

6800. 

1978 

1.00 

T3D 

AG D 


***** SOLDI 10 






38 


234, 

,74 

249.B1 

404. 

54 


MISSION 

'Characteristic 

PAYLOAD 

LAUNCH 

NUMBER 

OPTIMUM 

TITLE 

VELOCITY (FT/ SEC) 

(LBS) 

YEAR 

OF LAUNCHS5 

LAUNCH VEHICLE 

MARS71 

41500. 

1100. 

1971 

2.00 

T30 

AQ O 

PIONER 

49000. 

460. 

1974 

1.00 

T30 

AG D B2S 




1975 

1.00 

T30 

AG 0 B2S 

HARS73 

40000. 

6000. 

1975 

2.00 

T3M 

AGLT 

HERCRY 

3B900. 

1000. 

1978 

0.50 

T3B 

AG 0 B2S 

GROTRT 

49500. 

000. 

1973 

0.50 

T3f> 

AG 0 B2S 

HARS75 

39400. 

3000. 

1978 

1,00 

T3D 

AG 0 

COMET 

37200. 

2000. 

1978 

1.00 

T30 

AG 0 

ASTRA 

26300. 

7000. 

1977 

0.50 

T3B 

AG 0 

RELTIV 

14200. 

2000. 

1977 

0.50 

T3B 

AG 0 

PIONOE 

51400. 

1000. 

1978 

0.50 

T3H 

AGLT B2S 

ATS 

33 600. 

4000. 

1972 

1.00 

T30 

AG 0 




1973 

1.00 

T3D 

AG 0 

ORELAY 

14200. 

2000. 

1977 

0.50 

T3B 

AG 0 

USAHSC 

33600. 

4100- 

1978 

0.50 

T30 

AG 0 

USAHSM 

30000. 

6800. 

<1978 

1.00 

T30 

AG 0 


The optimum solution has been oetermineo 
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RECURRING COST DATA 


KEY NAME 


UNIT COST 


1 T3B AG D 

2 T3B AG D82S 

7 T30 AG D 

8 T30 AG D82S 

19 T3H AGLT 

20 T3M AGLTB2S 


9.33 

9.14 

13.80 

15.53 

29.69 

29.00 


REFERENCE YEAR 1969. TESt CASE 


PN NAME 

START 

OEVL 

YRS 

SUST 

ss 

SO 

R$ 

RD 

RECURRING DR 

FIXEO 

ITEMS 

1 HARS71 

1969. 

0. 

0. 

4. 

l 

3 

1 

3 

7. 

14. 

7. 









3 

2 

1. 

2. 



2 PIONER 

1902. 

0. 

0. 

0. 

1 

0 

70 

5 

1. 

4. 

11. 

12. 

3 HARS73 

1902. 

0. 

0. 

0. 

1 

0 

71 

A 

0. 

15. 

30. 

IS. 

4 HERCRY 

1903. 

0. 

0. 

0. 

1 

0 

73 

4 

0. 

1. 

3. 

2. 

5 GRDTRT 

1904. 

0. 

0. 

0. 

1 

0 

72 

4 

0. 

2;, 

4. 

2. 

6 HARS7S 

1903. 

0. 

0. 

0. 

l 

0 

73 

4 

1. 

3. 

7. 

3. 

7 COMET 

1902. 

0. 

0. 

0. 

1 

0 

74 

4 

1. 

3. 

7. 

3. 

8 ASTRA 

1901. 

0. 

0, 

0. 

1 

0 

74 

4 

0. 

U 

1. 

2. 

1 9 KELT IV 

1903. 

0. 

0. 

0. 

1 

0 

72 

4 

0 . 

I. 

1. 

2. 

510 PI ONCE 

1903. 

0 . 

0. 

0. 

1 

0 

73 

4 

1. 

3. 

7. 

4. 

, U ATS 

1900. 

0. 

0 . 

0. 

l 

0 

70 

5 

1. 

3. 

10. 

10. 

12 DRELAY 

1901. 

0 . 

0 . 

0. 

1 

0 

74 

4 

0. 

1. 

1. 

2. 

13 USAHSC 

1903. 

0. 

0. 

0* 

1 

0 

73 

4 

0. 

1. 

3. 

2. 

' 14 OSAHSH 

1902. 

0. 

0. 

0. 

1 

0 

74 

4 

1. 

3. 

7. 

• 3. 

15 IMAGE 

1969. 

76. 

5. 

31. 

4 

4 

0 

0 

0. 




16 PRETEN 

1969. 

3* 

4. 

14. 

3 

3 

0 

0 

0. 











6 

l 

15. 




17 DEV 2 

1969. 

0. 

0 . 

3. 

1 

7 

0 

0 












1 

2 

10. 

20. 



J 18 DEV 4 

1969. 

36. 

3. 

2. 

2 

9 

0 

0 





19 DEV 6 

1969. 

27. 

6. 

0. 

4 

0 

0 

0 





20 DEV T 

1971. 

1. 

3. 

0. 

2 

7 

0 

0 





21 OEV 9 

1969. 

0. 

0. 

6. 

1 

7 

0 

0 





22 OEV 10 

1969. 

0 . 

0. 

3. 

i 

7 

0 

0 





23 OEV 11 

1969. 

49. 

2. 

0. 

2 

0 

0 

0 





24 OEV 12 

1969. 

3. 

1. 

0. 

1 

0 

0 

0 





TOTAL 


1 95. 


271. 
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fixed 

0 . 

0. 

0. 

0 . 

0. 

0. 

o. 

0. 

0 . 

0- 

TOTAL 

78. 

* 

119. 

• 

91. 

* 

lol. 

* 

100. 

* 

102* 

* 

70. 

21. 

48. 

21 

LEVEL 

100. 

100. 

100. 

100. 

100. 

100. 

100. 

100. 

ICO. 

100 


RMS * 13- SMOOTHING INTERVAL 1969. THRU 1974. 

ITERATION 1 


F-2 6 




YEAR 




"" REFERENCE 

YEAR 

1969. 


TEST CASE ’ 





PN 

NAME 

START 

OEVL 

YRS 

SUST 

ss 

SD 

RS 

RO 

RECURRING OR 

m 

FIXED 

ITEMS 

1 

HARS71 

1969. 

0 . 

0 . 

4. 

1 

3 

1 

3 

7. 

14. 

7. 










3 

2 

1. 

2. 



Z 

PI ONER 

1902. 

0 . 

0 . 

0 . 

1 

0 

70 

5 

1. 

4. 

11. 

12. 

3 

MARS73 

190Z* 

0 . 

0 . 

0 . 

1 

0 

71 

4 

0. 

15. 

30. 

15. 

4 

HERCRY 

1903* 

0 . 

0 . 

0 . 

1 

0 

73 

4 

0 . 

1. 

3. 

2. 

5 

GROTRT 

1904. 

0 . 

0 . 

0. 

l 

0 

72 

4 

0 . 

2. 

4. 

2. 

6 

MARS75 

1903. 

0 . 

0 . 

0 . 

1 

0 

73 

4 

1. 

3. 

7. 

3. 

7 

COMET 

1902. 

0 . 

0. 

0 . 

1 

0 

74 

4 

1. 

3. 

7. „ 

3. 

8 

ASTRA 

1901. 

0 

0 . 

0 . 

1 

0 

74 

4 

0. 

1. 

1. 

2. 

9 

RELTIV 

1903. 

0. 

0. 

0. 

1 

0 

72 

4 

0. 

1. 

1. 

2. 

10 

PIGN06 

1903. 

0. 

0. 

0. 

1 

0 

73 

4 

1. 

3* 

7. 

4. 

U 

ATS 

1900. 

0. 

0. 

0. 

1 

0 

70 

5 

1. 

3. 

10. 

10. 

12 

□RELAY 

1901. 

0. 

0. 

0. 

1 

0 

74 

4 

0. 

1. 

1. 

2. 

13 

USAHSC 

1903. 

0. 

0. 

0. 

1 

0 

73 

4 

0. 

1. 

3. 

2. 

14 

USAKSH 

1902. 

0. 

0. 

0. 

1 

0 

74 

4 

1. 

3. 

7 

3. 

IS 

IMAGE 

1969. 

76. 

5. 

31. 

4 

4 

0 

0 

0. 




16 

PRETEN 

1969. 

1 3. 

4. 

14. 

3 

3 

0 

0 

0. 












6 

l 

15. 




17 

DEV 2 

1969. 

0. 

0. 

3. 

1 

7 

0 

0 













1 

2 

10. 

20* 



ia 

DEV 4 

1969. 

38. 

4. * 

2. 

3 

9 

1 

0 





19 

DEV 6 

1969* 

27. 

6. 

0 . 

4 

0 

0 

0 





20 

DEV 7 

1971. 

1. 

4. * 

0 . 

3 

7 

1 

0 





21 

DEV 9 

1969. 

0. 

0 . 

6. 

1 

7 

0 

0 





22 

OEV 10 

1969. 

0 . 

0 . 

3. 

1 

7 

0 

0 





23 

DEV 11 

1969. 

49. 

2. 

0. 

2 

0 

0 

0 





24 

DEV 12 

1969. 

3. 

1. 

0. 

1 

0 

0 

0 






TOTAL 197. 272. 

* INDICATES CHANGE FROM INPUT DATA 
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total PROGRAM COSTS AMO LAUNCH VEHICLE SCHEDULE 


YEAR 1969. 1970. 1971. 1972. 1973. 

PROGRAM 

1 MARS71 10. 17. 11. 2* 

7* 

2 PI ONER 0. 0. 1. A. 11. 

3 HARS73 0. 0. 0. 0. 15. 

4 MERCRY 0. 0. 0. 0. 0* 

5 GRDTRT 0. 0. 0. 0. 0. 

y 6 MARS75 0. 0. 0. 0. 0. 

7 COMET 0. 0. O. 0. O. 

B ASTRA D. 0. 0. O. 0. 

9 RELTIV D. 0. 0. 0. 0. 

10 PIONQE 0. 0, 0 . o. 0. 

11 ATS 1. 3. 10. 10. 3. 

7* 7* 

12 DRELAY 0. 0. 0. 0. 0. 

13 USAHSC 0. 0, 0. 0. 0. 

14 USAM5H 0. 0* 0. 0. 0. 

15 IMAGE 7. 19. 24. 49. 38. 

16 PRETEN 0. 1. 15. 15. 14. 

17 DEV 2 13. 23- 3. 3. 3. 

18 DEV 4 6. 13. 15. 8. 2. 

19 DEV 6 2. 5. 7. 7. 5. 

20 OEV 7 0. 0. 0. O. U 

21 OEV 9 6. 6 6. 6. 6. 

22 OEV 10 3. 3. 3. 3. 3. 

23 DEV 11 24. 24. 

24 OEV 12 2. 

SUM 74. 114. 94. 107. 100. 


. 1975. 1976. 1977. I9T8. 1979. 1980. 1981. 


12. 4. 

e* e* 

30. 15. 

19* 

0. 0. 1. 3. 2. 

2 * 

0. 0. 2. 4. 2. 

8 * 

0. 1. 3. 7. 3. 

7* 

0. 1. 3. 7. 3. 

7* 

0. 1. 1. 2. 

1* 

0. 1. 1. 2. 

1* 

0. 1. 3. 7. 4. 

20 * 


0. 1. 1. 2. 

I* 

0. 0. 1. 3. 2. 

7* 

0. 1. 3. 7. 3. 

7* 

31. 31. 

15. 

3. 3. 

2. 2. 2. 2. 2. 2. 

2. 

0. 0. 0. 0. 0. 0* 

6 . 6 . 

3 . 3 . 


102 . 70 . 21 . 40 * 21 . 2 * 


1982. 1983. 1984. 1985. 1986. 1987. 1988. 

I 


FIXED 

0. 

0. 

0. 

0. 

0. 

0. 

0* 

0. 

0. 

0. 

0. 

TOTAL 

74. 

< 

114. 

* 

94. 

* 

107. 

m 

100. 

102. 

♦ 

70. 

21. 

48. 

21. 

2. 

LEVEL 

LOO. 

100. 

10D. 

100* 

100. 

100. 

100. 

100. 

100. 

100. 

100. 


RHS « 13. SMOOTHING INTERVAL 1969. THRU 1974, 

ITERATION 3 
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p 

R 

0 

G 

R 

A 

H 

l 

E 

V 

E 

L 



69. 70. 71. 

FINAL CASE 


76. 

YEAR 


YEAR 


1969* 

1970. 

1971. 

'LAUNCH 

1972. 

VEHICLE REQUIREMENT 5 BY 
1973. 1974, 1975. 1976. 

YEAR 

1977. 

197B. 

1979. 

LV 

1 

TOTAL 
I. SO 

0.0 

0.0 

0 0 

0.0 

0.0 

0.0 

o.o 

0,0 

1.5 

0.0 

0,0 

2 

0.50 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0 5 

0.0 

7 

7.50 

0.0 

0.0 

2.0 

uo 

1.0 

0.0 

0.0 

0.0 

0.0 

3.5 

0.0 

8 

2.50 

0.0 

0.0 

0.0 

0.0 

0.0 

1.0 

1.0 

o.o 

0.0 

0.5 

0,0 

19 

2.00 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.0 

0.0 

0.0 

D.O 

o.o 

20 

o.so 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0,0 

0.0 

0.5 

0.0 


INPUT ASSIGNMENT IS OPTIMUM SMOOTHED SOLUTION 


OPTIMUM ASSIGNMENT KlTttlN BUDGET CONSTRAINTS HAS BEEN DETERMINED 


ENO OF DATA - JOB COMPLETE 
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Appendix G 
FLOW CHARTS™ 


G.-T DESCRIPTION 

Flow charts are provided in this section for each of the major subroutines and the 
main program MASTER. They appear in alphabetical order by subroutine name. 

A short description of the purpose of each subroutine is provided m the program 
listing in Appendix H. Subroutines AFRMT, INPUT, PLOT, and PACK were written 
in 360 Assembler Language so a description of each subroutine appears in this section 
rather than a flow chart. 

G. 2 MAJOR SUBROUTINE CHARTS 

The subroutine flow charts follow. 
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-SUBROUTINE AFRMT 


IDENTIFICATION 

^Subroutine AFRMT 
Deck Name MOX02&T 

Fortran IV subroutine coded in 360 Assembler Language 
Written by R. E. Slye 

PURPOSE 

Tliis subroutine converts a variable from integer to A format 
USAGE 


CALL AFRMT (I, X) 


where 

I is the name of the variable (may be one element of an array) in integer 
format 

{ 

X is the name of the result returned in A4 format 
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INITIALIZE 

NUMBER = 0 
GUESS = 1.75* 
GUESS 



INITIALIZE 


NSTG 


READ 

NFAM 


CASE 

NCI 


CARD 

NMIS 



NSPR 




READ AND PRINTOUT 
STAGE COST DATA 

DETERMINE NSTG 

STOP WHEN READ 
BLANK CARD 


READ SPECIAL 
PROGRAM COST 
AND DISTRIBUTION 
DATA 

DETERMINE NSPR 

STOP WHEN READ 
BLANK CARD 


USE DATA FROM 
PREVIOUS CASE 
IF NO NEW DATA 
INPUT FOR SOME 
CATEGORY 





READ AND PRINTOUT 
MISSION COST DATA 
LAUNCH RATE AND 
REQUIREMENTS 


DETERMINE NMIS 


STOP WHEN READ 
BLANK CARD 



READ AND PRINTOUT 
SHARED COST DATA 

DETERMINE NFAM 

STOP WHEN READ 
BLANK CARD 


READ AND PRINTOUT 


INTEGRATION COST 


DATA 

NO 

DETERMINE NCI 


STOP WHEN READ 


BLANK CARD 




(.O 


SUBROUTINE ASSIGN 
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1 


DETERMINE KSDC = NUMBER 
OF TOTAL SPECIAL DEVELOP- 
MENT COSTS 



17 


CALCULATE EXPONENT 
FOR INTEGRATION 
LEARNING CURVE 



YES. 


CALCULATE EXPONENT FOR 
STAGE LEARNING CURVE 


YES 


IFLAG 
= 0 


CALL 

STGNUM 



,1 



NO 1 

V 1 

KFLAG = 0 


SETUP MISSION MATRIX 
BY YEAR 

| NM = NUMBER OF MISSION- 
YEAR COMBINATION 
LETT = MISSION NUMBER 
LYR = LAUNCH YEAR 
YRLM = LAUNCH RATE 




CALL 

STGNUM 


ASSIGNMENT 


INCREMENT ITERATION 

NO 

NEXT a 500 


OPTIMUM LAUNCH 
VEHICLE FOR MISSION/ 


FOR CHOOZ NUMBR = 
NUMBR + 1 


OR GUESS 
< 0.001 



GUESS = GUESS 1 = ORIGINAL VALUE : 


NO 


IFLAG 
= 2 



STORE CURRENT 
VALUES OF 

13 

.YES 

NSTG 

NFAM 

, i 


NCI 

NMIS 

NV 

NSPR 



A 


SUBROUTINE ASSIGN (Cont. ) 
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13 





SUBROUTINE CAPABL 
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is 

STORAGE 
STILL AVAILABLE 
FOR VEHICLE 
INFORMATION? 




CALL PACK 

STORE VALUE OF LZ 
FOR EACH MISSION 
FOR VEHICLE J 

28 / 

1 

YES 

— ^ \ 


NO f \ 

-—^return) 


HAVE ALL 
MISSIONS 
BEEN 

CONSIDERED? 



SUBROUTINE CARABL (Cont. ) 
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KI * 1 
YEAR 
INTERVAL 


INITIALIZE 
NODE - 15 


W - MIN RECURRING COST 
W2 - SECOND LOWEST RECURRING 


Z. N 

CAN EACH 
MISSION BE 

FOR 

BRANCHING 


NEXT - 1 
NX - 1 


TDS - ACTUAL NONRECURRING 

COST EXPENDED * 0 AT FIRST 
NODE 


BY AT LEAST 
ONE VEHICLE? 
1 


K3 => 2 

YEAR INTERVAL 
FOR BRANCHING 


SET LAUNCH RATE 
FOR SUCH MISSIONS 
« YRLM « Q 


L 

WRITE 

THERE ARE 

1 

WU) 

CATEGORIES 


VFSX NUMD 

S. * o 


/ 0° \ 

j? 0 \ 

UV r 



EXCEEDED 
500 NODES 



W{KX) « VERY LARGE NUMBER 
Z (KX) « VERY LARGE NUMBER 


to 


CALL L BOUND 

CALCULATE 
Z(KX) ESTIMATE 


STORE PRECEDING ' 
AND CURRENT LZ ; 
VALUES IN NODE 



LZ - K - 1 


IS 


=*0 FIRST 

t YES 

NCOST 


THROUGH 


IN nos 


LOOP 


YEAR? 


' LOOP ON NODE \ 

LOCATIONS 

KX - LOCATION OF 
NODE CORRESPONDING 
TO YEAR (K- 1) KI , 


HAS 

^ NO STORAGE 
BEEN 

EXCEEDED? 


ALLOCATE STORAGE 
LOCATIONS FOR NEW 
NODES 


SUBROUTINE CHOOZ 
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SUBROUTINE CHOOZ (Cont. ) 
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SUBROUTINE CONSTR 





























DS (NUMD) - FMNR(I) 

D3 - DS + SPECIAL COSTS RxD 
SUST (NUMD) « PM8US (I) 

IS « JST (!) + i£»oa 

NYD (NUMD) I (SAME A5 

LYD (NUMDJ j FOR STAGE) 

YD (NUMD) 
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5Tn 


SUBROUTINE DECISN (Coat. ) 











93 



SUBROUTINE DECISN (Cant 





SUBROUTINE INPUT 


IDENTIFICATION 

* 'it* 

AL INPT Generalized Data Input Subroutine 
360/Assembler Language 
Written by R. E. Slye 

PURPOSE 

This subroutine provides for input of single-precision fixed and floating point numbers! 
and Hollerith information. Usage is particularly convenient inasmuch as no format' 
statements are required, and data may be loaded in any order irrespective of the 
order in the calling statement. 

USAGE 

The calling statement is 

CALL INPUT (5HALPHA, ALPHA, 4BETA, BETA, . . . ) 

In the above, the Hollerith' literals represent the external names of variables or arrays 
as they should appear on data cards. The other arguments are the internal names of 
the variables and arrays as referenced m the source program. It will become apparent 
that by using the external names in addition to the symbolic location names, it is possible 
to enter data for a variable on an input card without regard to its relative location in 
the calling sequence of the program. 


G-14 



.'ACCEPTABLE -INPUT DATA FORMS - 


A! Moating Point General Form 

M 't.-, 

Up to 9 decimal digits, with a decimal point 

permitted at the beginning, at the end or between 

two digits . A preceding plus or minus sign is 

optional. A decimal exponent preceded by E+ or 

+ or - if negative may follow. If no decimal 

point appears, the exponent is mandatory. The 

magnitude of the number must be between the 

- 75 75 

approximate limits of 10 and 10 . 

B. Decimal Integers General Form 

The magnitude of the number must be less than 
31 

2 . A preceding plus or minus sign is optional. 


Examples 


17. - 
5.0 
0003 

5.0E3 (5.0x103) 
5.0E + 3 (5.0X10 3 ) 
5.0E-7 (5.0X10- 7 ) 


Examples 

3 

+1 

-28987 


C. Hollerith Information General Form 

Any number of characters, including blanks . 

The number of characters is specified by writing 
nH preceding the Hollerith information, n is 
the number of characters m the block following nH. 

RULES FOR PREPARATION OF DATA CARDS 


Examples 

14HTHIS IS A TEST 
6HALPHA 


Blanks are ignored except within Hollerith data fields. 
Data must be contained within card columns 1 through 72. 


C 


t > 


G-15 



’ It' is’ hot necessary that variable names on the data cards appear in the same order 
as those in the calling sequence. The routine will search the list for the name and 
it's ‘core location. 

Individual data items are separated by commas. 

t ' i * * 

An equal sign separates the name of a variable and its first data item. 

A comma separates the end of a data set and the next variable name. 

A data input record is terminated by an asterisk (*). 

■ It is not necessary to input a data set for each name in the calling sequence. 

Elements of an array may be skipped by writing consecutive commas — i.e., no data 

j 

between the commas; or by singly subscripting the array name. Double subscripting 
is illegal. Thus, if it is desired to input data into a three-element vector V, one , 
could write: 


V = .2.79, ,1.32 

{ 

No data would be entered into V(2). What was originally there remains there. 
Alternatively, the above could be written: 

V(l) -= 2.79, V(3) = 1.32 

Special Feature. The card image is normally written on the system output unit, tape 6, 
prior to being processed by the routine. If an N is, punched m column 73, the card will 
not be listed. If column 73 contains a C, the card is treated as a comment only; i.ei, 
it is not scanned for data. If the card contains CE in columns 73— 74, the card will . ' 
be treated as a co mm ent card, and a page will be ejected. 
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EXA'MPLE 


' If tlie following call statement appeared in a FORTRAN program ,- 

' CALL INPUT (1HA, A, 1HB, B, 1HC, C, 1HD, D, 1HP, P, 1HR, R, 1HS, S) 
the input cards could be punched as follows: 

A = 3.14159265, B = 707, C = 1870, 1st card 

D = 1., 2., 3., 4., 5., 6., 7., 8., 9., 2nd card 

R(2) = 3, R(5) = 74., 42, 3rd card 

F = 22HTHIS IS A CHECKOUT RUN* 4th card 

Note that D must be dimensioned at least 9, 

R dimensioned at least 7 and P at least 6. 

Also R(l), R(3), R(4), and R(6) are unchanged. 

Even though S appears in the CALL statement, it is not 
necessary that it appear on one of the input cards. The 
* on card 4 signifies the end of the data record. This 
means that the routine will return control to the calling 
program. 

RESTRICTIONS 

The following errors will be detected by the subroutine. A diagnostic message and" 
the card in error will be permited on the system output unit, tape 6. 

1. Name on data card exceeds six (Characters. 

2. Name on data card does not appear m the calling sequence. 

I 

3. Punctuation errors. 

4. Name on datacard begins with a non-alphabetic character. 

5. Decimal or integer data out of range. 

» 

This subroutine may be used for reading double precision numbers; however, only the 
high order part of the number will be loaded. To clear the low order part of the 
number, write 

DWORD = 1., 0, 
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ADDITIONAL INFORMATION 


1. A slash (/) on a data card (not in an H field) indicates that information to 

the rightof the slash is not to be scanned for data. Therefore, these columns 
may be used for comments. 

2. In addition to the above means for entering Hollerith information, Hollerith 
may also be entered by enclosing it in apostrophes, i.e., P = 'THIS IS 

A CHECKOUT RUN' 

3. Floating point and integer data may be repeated into consecutive locations 
by use of the letter X followed by the data; i.e., 

D = 1., 4X2., 3., 

is equivalent to 

D = 1., 2., 2., 2., 2., 3., 

4. Alphanumeric data may also be repeated. The use of the letter X is. 
optional. For example, to set" an array dimensioned 18 to blanks, write' 

TITLE = 18' », 

If the alphanumeric field exceeds 4 characters, only the last word will 
be repeated. For example, 

DATA = 3'ABCDEF', will result in 
ABCDEF EF EF 

5. If a name on a data card is not followed by an equal sign, it will be retrieved 
from the calling program. For example, if in the calling program, ,X and 
ALPHA are dimensioned at least 2, then the following data card 

X = 3.1, ALPHA (2), 

will result in the current value of ALPHA (2) being stored'in X(2). 
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As an additional example, suppose that the calling FORTRAN .program 
has the following sequence: 

LOGICAL 
• • <♦ 

TRUE = .TRUE. 

FALSE « .FALSE. 


CALL INPUT (. . ,,'OK', OK, ’TRUE’, TRUE, 

'FALSE', FALSE, . . .) 

— — — 

Then a data card written as follows, 

OK = TRUE, 

will result in the input of logical data to the program. 

6. If a comma is omitted from a data card, a warning will be written on 1 the 
system output unit and execution will' continue. However, for any other 
type of error, execution will be suppressed, and the remaining data cards 
will be scanned, for 'errors . . 

,7.. This subroutine will accept data cards punched on 1 either a 026 for 029 
keypunch! 
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SUBROUTINE LBOUND 
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FOR NEW CASE 
FINISH =■ 1 
JFLAG *0 


(SEE REF 4, VOL 1) 


OPTIMUM ASSIGNMENT 
WITHIN BUDGET CONSTRAINTS 
HAS BEEN DETERMINED 



WR] 

LTE 

NUMBER OF ITER 
- MAXIMUM NUN 

ATIONS 

[BER ALLOWED 


CALCULATE VA 
SMOOTH USING 
PROGRAM DAT/ 

JUABLE5 FOR 
MISCELLANEOUS 

| S, R, NSTRST. N = NMIS + NSPR 



CALCULATE VARIABLES FOR 
SMOOTU USING DEVELOPMENT 
AND SUSTAINING COSTS 



V, ES S' FINISH 

LAG w i 

\=MITR / 


LABEL, C, NYRSFX, RFIXD, 
NSTRFX, S, R, SUS, NSTRST, 
NYRSST, N * NMIS + NSPR 
+ NUMBER OF DECISION OPTIONS! 
USED IN OPTIMUM ASSIGNMENT 



s' 

^NCSTO^ 

sISi 

'GO 'v 
TO ] 

ylW 

YES 

NO 




SUBROUTINE MASTER 
















SUBROUTINE PACK 


IDENTIFICATION 

M » > 

Subroutine PACK 
Deck Name MOXOIPK 

Fortran IV subroutine coded in 360 Assembler Language (also MAP coded for the 7094) 
Written by R. E. Slye 

PURPOSE 


This subroutine is used to pack an array of integer or logical data into a smaller array 
in a packed binary format. 

* 

METHOD 


The unpacked (source) data is treated as an array of unsigned integers. The integer 
words are truncated on the left and only the N low order bits are retained. The N 
low order bits are then placed sequentially, left adjusted, m a packed array word 
until that word is filled. .Backing then continues into the next .word, etc., until the 
source data is exhausted. 


Since a storage word contains 32 bits, a packed word may contain 32/N data items. 

Note that since only, the N low order bits are- retained, .the largest integer item that 
l N 

will be represented ,correctly is 2 - N. For example, if N = 4, the packed items 

will represent digits from 0 to 15. For a larger 1 integer, the packed item will -in 
effect be the modulus of the source item. 
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USAGE 


This' Subroutine has three entry points. The three entries are PACK, UNPACK, and 
ITEM ' To pack data, the Fortran call statement is 

‘ ■ _ CALL PACK (L, M, I, N) 

where 

L is the name of the array containing the source data . 

M is the name of the array containing the packed data . 

I is the number of data items in L. 

N is the number of low order bits to be retained. 

The array L should be dimentioned I . 

The array M should be dimentioned |(I-l)/[32/N]]j - +1 
To unpack data, the Fortran call statement is 

CALL UNPACK (L, M„ I, N) 

where the arguments are' as listed above. 

j 

I may be less than die actual number of items in the packed array. 

.Packed, data in the array M is .unpacked and placed' right adjusted in the array L . 

(The unused high order part of the word is cleared. ) 

The third entry point to the routine may be used to recover a single item from the packed 
array M . It is called by the Fortran statement 

J = ITEM (M, I, N) 

The Ith item in the packed array M is returned to the calling program. 
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. additional information 


If [32^N] -is not an even integer, some low order bits in a packed word are unused. 

For example, if N = 6 the word may contain 5 items and the- last 2 bits are. unused. 

The 6th item will then start at the beg innin g of the 2nd word. 

This subroutine is also available for use on the 7094. Since the 7094 has 36 bits/word 
rather than 32, the data will be packed differently. This should not concern the user ' 
except that the size of the M array may be slightly smaller. 

PRECAUTION 

Integers in the source data may be negative. However, if negative integers are used, 
the results will be different on the 360 from that on the 7094 since negative 360 integers 
are carried tin complement form. 
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SUBROUTINE PLO-T 


'IDENTIFICATION 

f > i'HMi 

iUMPLOT, Drawing of Graphs by Use of the Printer 
3 60'/Assembler -Language 

Ames Modification of SHARE Library Routine UM PLOT 
PURPOSE 

This subroutine is used for the purpose of drawing plots, along with the printing, of the 
usual type of numerical output, by use of the printer. 

PRELIMINARY REMARKS 

Several changes have been incorporated in the FORTRAN IV version of UM PLOT. 

The maximum width of the plot has been increased from 101 columns to 119 columns. 
The original program included entries for use in SAP and MAD coded routines, whereas 
the present version may be entered only from FORTRAN IV or MAP coded programs . 

METHOD 


A region of core is treated here much as a piece of graph paper. This region of core 
is called the "image region." The image region is cleared, and then a grid, consisting 
■of Ps and -’s, with +,l s at gridt intersection points, is formed. The program will place 
;any given BCD character at the appropriate place in the image region, corresponding 
to an ordinate — abscissa pair. Each point is written in the image region independently 
of those previously written, and so data to be plotted need not be sorted. Any number 
of points (consistent with the specified size of the image) may be plotted, with any 
Hollerith plotting character whatever. Points which fall on previously plotted points 
replace the latter, and points which .fall on a grid line replace the grid line character. 
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Point's 1 which lie outside of the specified grid limits are not plotted. When all desired, 
points have been placed in the image region, the latter is written out onto a standard 
BGD'tape (i.e., tape 6, 7, 9, or 11) for subsequent .printing. . . . _ 

USAGE 

This subroutine has four main entries and two auxiliary entries. The four main 
entires are PLOT 1, PLOT 2, PLOT 3, and PLOT 4. Each performs a specific 
function, and normally they are taken m the order listed above. Exceptions to the 
normal sequence are discussed below. The two auxiliary ' entries' are OMIT and 
PL TAPE. The first of these is used for the purpose of causing portions of the grid 
to be deleted, and the second is used if it is desired to output on a tape other than 
logical tape 6. 

Each of the entries is discussed below in detail, following which the calling sequence 
arguments are defined. It may be noted that the four main entries can be taken by 
use of either a standard CALL statement [e.g. , CALL PLOT 1( )] or an arithmetic 

statement [e.g., R = PLOTI( )] . The advantage of the latter is that if certain error 

/v . 

conditions arise, they can be detected by ’interrogation of R, whereas the programmer 
has no way to detect an error condition if the CALL type entry is used. The details 1 
concerning error conditions and the interrogation of R will be found ,in Section D 
to follow*. 

A. The Four Mam Entries 

! 

CALL PLOT T (NSCALE, NHL, NSBH, NBL, NSBV) 
or 

R = PLOT 1 (NSCALE, NHL, NSBH, NBL, NSBV) 
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This entry is used to set up grid spacing and the total-length and width of the. graph. 

The location of decimal points, and the scale factors (power's of 10) for values of the 
’ > ”, 1 
ordinate and- abscissa to be printed along the axes of the plot are -also specified!. If , 

botlr -standard grid and standard scale factors are desired (to be described .subsequently), 

then this entry need not be taken. If several plots are to be printed, all having, the same 

scale, factors and grid specifications, then this entry need only be taken one time. 

CALL PLOT 2 (IMAGE, XMAX, XMIN, YMAX, YMIN, EDIM) 


or 


R = PLOT 2 (IMAGE, XMAX, XMIN, YMAX, YMIN, EDIM) 

This entry clears the image region and prepares the grid lines of I's and -’s, witb + ’s 
at grid line intersection points. It establishes internally formula for computing the 
location in the image region that corresponds to a given abscissa — ordinate (X., Y^) 
pair, based -.on maximum and minimum values as entered through the calling sequence. 

CALL PLOT 3 (BCD, X, Y, NDATA) 

or | 

i 

R = PLOT 3 (BCD, X, Y, NDATA) 

This entry causes a' specified Hollerith plotting character to be placed m the appropriate 
place m the image region for each of the abscissa — ordinate pairs, which are stored 
in arrays X and Y. This -entry may not be taken unless entry PLOT 2 has been taken 
previously. This entry may be taken repeatedly, if desired, in order to write several 
sets of data in the image region before it is read out on tape. 
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CALL PLOT 4 (NCHAR, LABEL) 


R - PLOT 4(NCHAR, -LABEL) 


1 This entry causes the contents of the image region to be written out on logical tape 6 
(unless .a different tape has been specified by use of the entry PL TAPE, discussed 
later) . The topmost line of the graph will appear one space below the last line 
previously printed. The ordinate label is specified, and it will appear to the left of . 
the graph. Abscissa labels may be printed above or below the graph by use of standard 
printout statments. The entry PLOT 4 can be taken repeatedly to obtain several copies 
of the same graph, if desired. The entry PLOT 2 must have been taken at least once 
prior to the entry PLOT 4. It is permissible to alter a graph (in the image region) by 
use of the entry PLOT 3 and then print the result using PLOT 4, without returning to 
the entry PLOT 2. 

B. The Arguments For The Four Main Entries Are Described Here 

, Note that certain of them may be either integers or floating point quantities, as for 
example NHL (integer) or HL (floating equivalent of NHL). 

NSCALE is an array of dimension 5 that supplies the subroutine with grid and 
scale factor information 

NSCALE(l) = 0, standard grid and scale factors (see note (a), to follow) 

0, grid and scale factors are as defined in NSCALE (2) - NSCALE (5) 

NSCALE(2) = I, scale factor such that printed values of the ordinate are 10* times 
' the actual values 

NSCALE(3) = J, J digits will appear to the right of the decimal point in printed 
ordinate values (J < 8) 

NSCALE (4) = K, scale factor such that printed values of the abscissa are 10 K times 
the actual values 
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l| ’ , '-NSClAL.E(5) = M, M digits will appear to the right of the. decimal point in printed, 
abscissa values (M< 8) 

1 llJi) 

NHL (or HL) is the number of horizontal grid lines (NHL > 0) 

h !} 

NSBH (or BH) is the number of spaces between horizontal grid lines 
(NSBH x 0) 

l* ib 

NVL (or VL) is the number of vertical grid lines (NVL > 0) 

NSBV (or SBV) is the number of spaces between vertical grid lines 
(NSBV > 0, and NSVB*NVL < 119) 

Note (a) . Standard scale factors correspond to values of I, J, K, and M of 0, 3, 0,. 3, 
respectively. A standard grid is available which is 101 columns wide starting at 
column 13, and 51 lines long. It has 10 vertical grid lines and 5 horizontal grid lines', 
with 10 spaces between both horizontal and vertical grid lines. If both the standard 
scale factors and standard grid are desired, then the PLOT 1 entry need not be talcen. 
It should be noted, however, that if PLOT 1 has been entered for the purpose of setting 
up nonstandard conditions, then the latter prevail until PLOT 1 is reentered with 
different arguments. 

Any combination of vertical and horizontal grid lines 1 may be -specified, but the vertical 
grid always starts at column 13t. It may extend as far to the right as column 132. The 
length of the grid is) limited only by the dimensions of the image region in core. 

1 d 

Note (b). . Integers are, printed for the ordinate and/or abscissa scales if J < -■ 1 
and/or ~M < v 1. 

Note (c). If a scale factor is such that overflow or underflow would occur, then the 
scale factor is treated as zero. The subroutine may shift abscissa scale printout in 

r 

order to accommodate all of the desired numbers. If the value of an ordinate or 
abscissa is too large to be printed in the allowed space to the left of the graph it will 
be truncated from the left. 
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'IMAGE- (or AIMAGE) is an array, dimensioned IDIM, which is used as the ! 
image region by the subroutine 

iMjoO 

XMAX is the value of the abscissa' at' the rightmost grid line 

'"iM! 

XMIN is the value of the abscissa at the leftmost grid line 
(XMIN < XMAX) 

•t ■ i t'i 

YMAX is the value of the ordinate at the uppermost grid line 

YMIN is the value of the ordinate at the lowermost grid line 
(YMIN < YMAX) 

IDIM is the dimension of the array IMAGE, where IDIM = N*(NSBH*NHL + 1) 
and 


N = — rounded up for the IBM 7094, or 

D 

N = ~~ rounded up for the IBM 360 

and where 


K = NSBV*NVL + 1 , 

(The square brackets in the formula ior _N signify "’integral value'.”.) 

i - . - 

Note (d). Set IDIM equal to- at least 867 for the standard grid. (1326 for 360). 

BCD is the Hollerith plotting character, any character whatever (see 
note (e), to follow) 

X is the array (or single location) that contains the abscissa of the points to 
be plotted 

Y is the array (or single location) that contains the ordinates of the points 
to be plotted 

NDATA (or DATA) is the number of points to be plotted (NDATA > 0) 
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F <* » 

Note ‘(e). The plotting, character may be loaded into, cell BCD by use of a DATA 
statement, that is, 

DATA BCD/1H*/. . 

or, .alternatively, it may be entered as a Hollerith literal in the PLOT 3 entry state- 

j - 

ment, for example, 


CALL PLOT 3 (1H* X, Y, NDATA) , 

(The arithmetic statement entry R = PLOT 3 ( ) may not be used m the latter case. )’ 


Note (f). If it is desired to write a single point at a time into the image array, set 
NDATA equal to 1. 

N CHAR (or CHAR) is the number of Hollerith characters, including blanlcs, m . 
the ordinate label (N CHAR < NHL*NSBH+1) 

LABEL is an array which contains the Hollerith characters that constitute the 1 
ordinate lable to be printed along the leftmost grid line. (See note (g), bel'ow)| 


Note (g). The ordinate label can he entered in array LABEL by use of the DATA 
statement,' that is, j 


DATA (LABEL (J), J = 1, 3) /17 HbbbORDINA TEbL A BEL / 

Alternatively, it can be loaded as a Hollerith literal in the PLOT 4 entry statement, 
for example, 


CALL PLOT 4 (17, 17HbbbORDINATEbLABEL) 
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(Tiie 'arithmetxc statement entry, R = PLOT 4 ( ), may not be used in the latter 

case.) 

i vj'iteinA 

‘‘ '’'"'ft 1 (See-Section D,- to follow) 

C „ i ’ The Two Auxiliary Entries and Their Arguments 
CALL PL TAPE (NTAPE) 

This entry is used, prior to PLOT 4, if it is desired that die output be on a tape other 
than tape 6. Here, NTAPE is the tape number upon which the output is to take place 
(7, 9, or 11). The output tape number remains as set by this entry until PL TAPE is 
called again with a different value for NTAPE. 


CALL OMIT (NARG) 


This entry causes certain portions of the graph to be deleted. It is taken prior' to the 
entry PLOT 4. The settings for NARG are tabulated below 


NARG Effect 

1 Numerical values of the abscissa 

r are not printed 

2- Numerical values of the ordinate 

are not printed 

3 Combines .die effect of NARG = 1 
and' NARG = 2 

•4 The complete bottom horizontal 
grid line is deleted 

5 Combines the effect of NARG = 1 

and NARG' = 4 

6 Combines the effect of NARG - 2 

and NARG = 4 

7 Combines the effect of NARG = 1 

NARG = 2, and NARG = 4 
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’B 1 . 1 ' 'Error Conditions 


H argninents are incompatible with certain restrictions, then the message 


PLOT 1, or 
PLOT 2, 
etc. 


IMPROPER ARGUMENT 


'is printed, thus indicating the entry where tile improper entry appears. If such errors 
occur m PLOT 1 or PLOT 2, subsequent entries into PLOT 3 and PLOT 4 are deleted! 
with no further comment. The argument restrictions are 


NHL >0 

NSBH > 0 

NVL >0 

NSBV > 0 

NSBV * NVL < 119 
XMAX > XMIN 
YMAX > YMIN 


BCD must be a single left-adjusted Hollerith character 

If the us.er attempts jto execute. PLOT 3 or PLOT 4 without having previously executed 
PLOT 2, (or without execution-of PLOT 2 subsequent to the execution of PLOT 1), 
the comment 


NO PREVIOUS PLOT 2 


will be printed. 

If the arithmetic statement (rather than the CALL statement) is used for the four main 
entries, then the user may take appropriate action in the case of such errors as would 
lead 'to the printouts described above. An error m the arguments-, or one due to the 



unsuccessful completion of an ear-lier entry 5 will cause a +-1.0, + 2.0, •+ 3.0, or 
+ 4. 0 to be loaded in cell R for entries PLOT 1, PLOT 2, PLOT 3, or PLOT 4, 
respectively. ■ Cell R contains + 0.0 if no error condition arises. The -user simply- 
tests 'E following each attempt-to-enter- the subroutine via- PLOT- 1, PLOT 2,- -PLOT 3', 
or PLOT 4. 


. i ) ’*'00 

i If any points are not plotted by PLOT 3, then the number - 3.0 will be found in R . 

. This might arise if points lie outside the stated minimum and maximum limits of the 
ordinate and abscissa, and need not be considered an error. 
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SUBROUTINE REVALU 













9 ?-D 




i 

\ 

t 


SUBROUTINE SHIFT 
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SUBROUTINE SHIFT (Cont. ) 
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SUBROUTINE SMOOTH 
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SUBROUTINE SMOOTH (Cont. 
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PRINTOUT RMS 
VALUE, SMOOTHING 
INTERVAL AND 
ITERATION NUMBER 



.A. 


IS PRESENT 
RMS < RMS 
VALUE AT BEGINNING 
OF THIS PROGRAM 
CHANGE ? 


WRITE 


WRITE 



CALL 

SHIFT 

FINAL CASE 


MAXITR 

EXCEEDED 









WRITE 

LAUNCH VEHICLE 1 
RATE BY YEAR 


I 


YES 


NO 


WRITE 

NO 

IS FINAL 

INPUT ASSIGNMENT 
IS OPTIMUM SMOOTHED 

RMS < INITIAL 
RMS -04? 

SOLUTION 


Iyes 



1 ™ 

7] 

U 



r 

1 

1 




[ RETURN ) 
l TO MASTER J* 


NCSTR =* 
NCSTR - NCS i 


FINISH =* 
MITR + l 


NO 


HAVE ANY INPUT 
VARIABLES TO 
ASSIGN BEEN 
CHANGED? 

Tyes 


SAVER * 
RMS VALUE 
1 AT END Or 
EACH 

[ ITERATION 


FINISH *= 
FINISH + 1 j 




DOES RMS VALUE AT 
END OF ITERATION «= 

RMS VALUE AT BEGINNING 
OF ITERATION? 

t YES 


NO 


X 

f 

YES 

SKIP *= 
OUT = 

' FALSE 
TRUE 




(GO TO] 
15 


SUBROUTINE SMOOTH (Cont. ) 
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—SUBROUTINE STGNUM 
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SUBROUTINE TCOST (Cont. ) 
















SUBROUTINE VEHRC 







Appendix H 
PROGRAM LISTING 


H.'l DESCRIPTION 

A compile-and-save Fortran listing of each major subroutine xn the Budget Smoothing 
and Vehicle Assignment Integrated program is included in this section. Storage 
requirements for each subroutine are listed on the output along with the code name 
sunder which the subroutine was saved. Total storage requirements are listed at the 
beginning of the sample case presented in Appendix F. Comment cards describing the 
logical function of each subsection and defining any variables whose names are not 
mnemonic are liberally distributed throughout the deck so that new users may readily 
'become familiar with the programs. 

Subroutines CLEAR, INPUT and PLOT are stored for general NASA use and are 
.described m Ref. 4. Therefore, no listing is included here; however, a description 
of each is provided m Appendix G for completeness. Subroutines AFRMT and PACK 
are written in 360 assembler language, .so their listings are .provided m that language. 

Labeled' common blocks were used for storage whenever possible to avoid long argument 
lists for each subroutine. These blocks are found at the beginning of each listing with 
a brief explanation concerning the nature of the variables found in each block. The 
block labeled SCRACH stores variables only required m that subroutine so that the 
same storage locations may be used for storing new variables in the next subroutine. 

All other labeled .common blocks contain variables used in several subroutines. 

The listings are presented m alphabetical order according to subroutine name for 
easy reference. 
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H'.-2 ’ 0OMPILE-AND-SAVE LISTINGS 


The corapile-and-save listings follow. 


SYMBOL TYPE 10 AO DR LENGTH ID ID 


16.07 


AFRflT SO 01 000000 000040 


LOG OBJECT CODE 

ADDR1 

AD0R2 

STHT SOURCE STATEMENT 


‘ 000 GOO 

* 



l AFRHT 

CSECT 



(OOOGOO 




2 

USING 

‘*,15 

REG 15 FOR BASE 

iOOOGOO 5020 

DO 1C 


000 1C 

3 

ST 

2,28(0,13) 

SAVE REG 2 

000G04 9612 

1000 


OOOOO 

4 

LM 

1,2, 0(1) 

LOAD ADDRESSES OF ARCS 

000009 5810 

1000 


OOOOO 

5 

L 

l f 0(0,l) 

OATA TO REG 1 

■OOOCOC 4E10 

F036 


00030 

6 

cvo 

1,M0RK 

CONVERT TO DECIMAL 

i 000010 F332 

2000 F030 

ooooo 

0003D 

7 

UNPK 

0(4,2 1 , WORK ♦5(3) UNPACK 4 OIGITS 

000016 96F0 

2003 

00003 


9 

0! 

3<21,X*F0* 

INSERT ZONES 

OOOOlA 4110 

0004 


00004 

9 

LA 

1,4 


OOOOIE 95F0 

2000 

OOOOO 


10 LOOP 

CLI 

0(2) ,C*0* 

SCAN OUT LEAOING ZEROS 

000022 4770 

F032 


00032 

11 

BNE 

.RETURN 


000026 9240 

2000 

OOOOO 


12 

MV I 

0(2) ,C* • 

INSERT BLANK 

0000 2 A 4120 

2001 


00001 

13 

LA 

2,110,2) 

RUMP POINTER 

■ 00002 £ 4610 

FOIE 


0001E 

14 

BCT 

It LOOP 

LIMIT TO 4 CHARACTERS 

000032 5820 

00 1C 


ODD 1C 

15 RETURN 

L 

2,26(0,13) 

RESTORE REG 2 

000036 07FE 




16 

BR 

14 

RETURN 1- 

■ 0000 38 




17 WORK 

OS 

0 






10 

END 




4/ IV 70 


4/14/70 



CROSS-REFERENCE 


SYMBOL LEM VALUE DEFN REFERENCES* A/14/70 

AFRMT t OOOOl OOOOOO 0001 

LOOP 00004 00001E 0010 0014 

RETURN l 00004 000032 0015 0011 

MORR 00008 000038 0017 0006 0007 


NO STATEMENTS FLAGGED IN THU ASSEMBLY" 
32 PRINTED LINES 


F8B-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LISTiNCAL ” 

VARIABLE OPTIONS USED - S I ZE«< 126976,24576) DEFAULT OPTION I SI USED 

IEWOOOO NAME KOXOZATtRl 

♦♦♦♦KOX02AT NOW REPLACED IN DATA SET 
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FORTRAN iV' G LEVEL 1* MOO 4 


ASSIGN 


fJATfc - 70105 


09/ l*/08 


0001 


0002 

0003 

0004 

0005 

0006 
0007 

oooe 

0009 

0010 
0011 

0012 

0013 


SUBROUTINE ASSIGN 
C 

C THIS PROGRAM GENERATES THE LEAST GUST ASSIGNMENT OP LAUNCH 

C VEHICLES TO SPACE MISSIONS* A BRANCH AND BOUND TECHNIQUE IS USEO 

C TO REOUCE THE COMBINATORIAL COMPLEXITY DP THE PROBLEM. SEVERAL BRANCHES 
C ARE CREATED AT EACH NODE. UNE OP THE BRANCHES EXCLUOES THE NEXT 
C COST AND THE OTHERS ASSUME EXPENDITURE OF A NDN-RECURR ING COST 

C HI Til |-7 YIAHS tM- MIS IAN INI. COST Ml Ilf D AT FAfll NODI , 

C PENALTY rUNf THINS ARE USfcl) III SHARPEN THE LIlWFk MOUND. 

C MODIFIED PENALTY FUNCTION IN LOWER MOUNO BASED ON VEHICLE INFORMATION 
C ****THIS VERSION USES RATE EFFECTS IN RECURRING COSTS**** 

C 

DOUBLE PRECISION NAME 
INTEGER YOPLtFINISH 

INTEGER* 2 LYR.LETT ,MIN , I S,NUNREC,NYD,LABS*,LA8F , LABI ,HAT ,VEK,LYO, 

1 NYRSST 
C 

C THE FOLLOWING STORAGE IS USED IN ASSIGN AND MASTER 

COMMON/ $AVEA/NM,YRLN( 250 1 > LYR 1252) , LETT (250) «H INI 250) * 

1 05(50), SUSTI50),YDI50|, 1SI1061, NUMO»NONRECC 60 1 2 0 > » NYD ( 50 ) , 

2 LABS(40),LABF|30).IARM40>. RXDI 12. 50 ) *HAT1501 

COHHON/SAVEAl/VDPL 156), I8Y.NSFX 1 50 ) .NRFXI 50 I »NSYR ( 50) 

C THE FOLLOWING STORAGE IS USED IN MASTER AND SMOOTH AND ASSIGN 
COHHON/SAVEB/NAHEI56) r MITR, ALPHA, 601 »PLD<7?) , PIS (72 1 , 

1 PLR ISO), RDtSM 56,4), RFtXDI 12,72), NSTRFX<?21,NYRSFX(72), TREE 
« C0HM0N/SAVE81/NHIS, VEHI A, 60 1 »F)N ISH.RCOST 161), STG( AO) *NSPR , 

1 NYRSST (72) 

C the FOLLOWING storage is used in assign and chooz 

COHMON/SAVECZ/RECURl 60,20 .2 1 »VNH{A ,2501 . LYOI 50) .NEXT, GUESS, 
l L TR ( 50 1 

C STORAGE USED IN 0EC1SN AND ASSIGN 

CUHHUN/ASGN/ ISH40) » JSTOO) , KST I AO ) ,K0DEM(501 , YDSI A01 » Y0FI301 » 

I YDI(AO)' 

COMMDN/SAVEDC/KFLAG f NFAH,LSA(AO),SNR(AOUSTS(AOl,NYSlAO),FKNR(30I, 
l KODEF (30) t FH5U51 30 ) . FAM130) ,DINTI AO) .SINT I AO I 
C THE FOLLOWING STORAGE IS USED IN STGNUH 

C0KM0N/5AVESH/]FLAG,STGYTR(A0,20,2),R1NTYA(A0,20),NBY(A0),NC1* 

1 PLCINT(AO), NFKL <40 ) ,NFS I AO. A) , NFHUI AO) , 

Z MODE (AO, 3), SR (AO .3) ,PLC(A0,3) ,POJl 3 > , SRJ 13,31 ,RINT(A01 

C THE FOLLOWING STORAGE IS USED IN CAPA BL AND ASSIGN 

COMMON/ SAVECL/NOPT, I V,KNV,IG, PLMDC501 ,KODEV< 60),K0DS (AO) , 

2 IV EH At SO) ,VLR( 50) ,W PR f 50) , VM(2,60l ,NPLSI 50) .MR ( 501 ,NRR (50) 

C STORAGE USED IN CAPABL ONLY BUT SAVED FOR BATCHING 


FORTRAN IV G LEVEL 1, HUU A ASSIGN 


DATE • 70105 09/14/08 


00 1 A 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

002A 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 


0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 


COMMON/ SAVED/ Bl( 60), 82(60), 03 <601 T DA I 60 > tN VS ( 60 J ,HRVItO 1 ,NRP (60) 
COMMON/5 AVELZ/LZ( 60) 

COMMON/ SAVENV/NV,HYRS 

C0MHUN/RATCH/KNSTG,XNFAK,KNCI,KNMI5*KNSP,KD0ESP(6) 

COMMON/ SAVESG/NSTG 
COMMON/ SAVENR/NUHBR.HX I TR 
C THE FOLLOWING STORAGE NEED NOT BE SAVED * 

COMMUN/SCRACH/HISNI 50,20) ,KVEHI50J *PBI50), I IS 156) ,DUMA(3429 ) 

C 

NUHBR - o 
GUESS « 1.75*GU£SS 
1F( FINISH. GT. 1 1 GO TO 17 
11 NSTG • 0 
NFAH - 0 
NCI - O 
NHIS - 0 

NSPR * 0 „ 

RE ADIS, 100)NOPT,HYRSf IBY, GUESS ,HITR,TREF,HX ITR, IG, IFH, I I , IH, ISO, IV 
C *•* IG IFM II IH ISO AND IV ARE VARIABLES FOR BATCHING ONLY *** 

IF IMYR$«E0«0) GO TO 806 
WRITE (6,104) 

IFCIG.LT. 0) GO TO 12 
WRITE ( 6*2131 

LX * O 

C NSDC •» NUMBER OF SPECIAL DEVELOPMENT COSTS . 

NSDC - I 

DO ROOO I - 1,50 , 

READ! 5, 101) KODSI I ) ,STG( I ) , (SR( ] ,31 , J«1 ,3 ),< PlCtl , J) * J«l,3 ) , 

1 SNR 1 1 1 , STS ( I ) ,NYS II), LSA(I ) »NBY( I ) , (NFS (I,J),J*l,4), 

2 (MODE 1 1 , J ) , J » 1,3) 

JflKODSU J.EO.OI GO TO 12 

REAOI 5, 111 ) YDS! II , 1ST(I), NSFX(NSDC) 

NSTG « NSTG * 1 
LABS ( I ) • 0 

WRITE (6,8001) STG(1>, ISR(l,J),PLC(I,J),J-l,3),SNR(I),STS(t), 

1 NYSI I), ISAM ),INFSI I,J),J*1,4) ,WBY( II 
00 B002 J * 1,3 
IF (MODE ( I , J ) .EQ.O) GO TO 6002 
LX » LX + 1 
MODE! I *J) - LX 

READ! 5,6003} (SRJ(LX,K), K * 1,3), POJUX) 

WRITE! 6, B004) J.POJ I LX) ,SRJ I LX, l ) , POJ l LX! , (SR JlLX,Kl , K»2,3 J 
8002 CONTINUE 



FORTRAN fV G LEVEL l,~MUO A 


ASSIGN “ 


OATE“ •'70105' 


09/14/08 


0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0091 
0082 

0083 

0084 

0085 
0096 

0087 

0088 

0089 

0090 


FORTRAN 

0091 

0092 

0093 

0094 

0095 

0096 

0097 


0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
om 
0112 


0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 


IF (NS FX (NS DC ) * EQ .0 ) GO TO 8000 
READ! 5, 1 10) NRFXINSDC ) » ( RXD{ J.NSDCl , J • 1*121 
LA8SU1 ■ NSDC 
NSOC ■ NSDC ♦ 1 
8000 CONTINUE 

12 IFUFH.LT. 0) GO TO 14 
00 13 J « 1,30 

REAO(5,102) l.FAHI I) ,FHNR(I) ,FHSUS( II »Y0FII >»JSTU ) ,NSFX(NSDC) 
IFM.EO.D) GO TO 14 
IF ( J.EO. 1 1 WRITE! 6,214) 

NFAH * NFAH + 1 
LA8FUI * 0 

KOOEF(J) - I * 

WRITE! 6,2141 IKODEFIJ), FAMU ) , FHNRU) ,FHSUS U I 
IFINSFX (NSDC ) -EQ.01 GO TO 13 

READ (5 , 110) NRFX(NSOC), ( RXO( J1 ,NSOC 1 , Jl-1,121 

L ABF III » NSDC > 

NSDC - NSOC ♦ l 

13 CONTINUE 

14 IFItl.LT.O) GO TO 1716 
DO 1715 I = 1,40 

REA0(5,103I NFHL ( IJ , NFHU 1 1 ) , RI NT ( I) , RLC 1NT (1 ) » 0 INT U > » SI NT ( 1 1 » 

1 YDI < I ) ,KST 1 1 1 ,NSFX (NSDC) 

1FINFMLIU.E0.0) GO TO 1716 
IFU.EO.N WR ITE (6 ,215 1 

NCI » NCI ♦ 1 
LABI (II « 0 
J-NFHUI) 

K-NFHUU) 

WRITE! 6,216) FAHf J) , FAHIK } ,R1NT U ) , PLCINTU 1 , DINTU I ♦ SINT U I 

I F(NSFX (NSOC > «EO«0 ) GO TO 1715 

REAO(S,ilO) NRFX(N5DC), IRXDI J.NSDCl , J • 1,12) 

LABI IN ■ NSDC 
NSOC = NSOC ♦ 1 

1715 CONTINUE 

1716 IFUH.LT.OI GO TO 19 
DO 1719 I-1,HYRS 

1719 L2UI-IBY+I-1 

WRITE ( 6, 7171 (LZI n,1-l,HYRS) 

1717 DO 1718 1-1,50 

READ( 5, 105 ) XODEMI 1 ) ,NAHE( 1 J , PB ( 1 ) ,NSYR( I ] tNYR5FX( I ) »VLR(T 1 ,WPR ( I ) 
1 , (Ml SNII HYRS ) 

TFIKOOEHM l.EO.O) GOTO 19 


fV*© LEVEL 1, HUD 4 " 'ASSIGN DATE * 70105 09/14/08 

NH1S « NrtJS ♦ 1 

READ (5,107) PLRin,PLS(I),PlOm,YOPim, ( RO ISTU , L) ,L-1,4) , 

1 PLHD(n,NPLS(ll,HRU),LTft(I ),NRR(U, IIS ( I > , IVEHAf I ) 

isu) - 1900 +nsm 

IFINYRSFXdl.EO.Ol GO TO 1718 
READ(5,U0) NSTRFXU), ( RF1XDI J , 1 ) , J-l ,12) 

1718 WRITE (6,2191 IfNAHEd), VLR( 1 1 ,WPR( 1 ) ,PB ( 1 ) ,LTR( I > , 

1 (HI SN(I * J) t J-l ,HYRS ) 

« 19 IF ( ISD.LT.O) GO TO 20 

C INPUT SPECIAL PROGRAMS HAVING NO ASSOCIATED LAUNCHES 
C KQDESP GT 1O0 

DO 1725 1 - 1,6 

READ! 5, 106) KODESP ( I ) »NAKE (NMIS+I ), PLDI J+NHIS) , YOPLI l+NHISl , 

1 t IS ( I +NM1 $ ) T PLSI I+NH IS ) #NST,NYRSFX{ I+NHT SI 
NYRSS T ( I *NM IS) - NST 
IFIKODESPII l.EO.O) GO TO 20 
NS PR - NSPR + 1 

ISU + NHIS) ■ 1900 + IIS! I+NHIS) 

* IF(NYRSFX(|*NMISl.GT.O) 

1READI5 , 110) NSTRFXI l+NMIS l , (RFIXDI J , I+NMIS ) » J-l , l 2 ) 

1725 CONTINUE 

20 IFUC.LT.O) NSTG * KN5TG 
IF(IFH.LT.O) NFAH - KKFAH 
« IF (11. LT 0) NCI - KNCI 

IFUH.LT.OI NHIS - KNHIS 
IFIISD.LT. 0) NSPR-KNSP 
NSDC = NSDC - l 
IFUH.LT.OI GO TO 3000 
C 

C ***SET UP MISSION MATRIX BY YEAR*** 

NH - 0 

\ DO 4 I - 1,NMIS 
DO 4 J-l, HYRS 

IF (H1SN( ( * J ) .EQ.O) GO TO 4 
NH = NH ♦ l 

YRLH(NH)- FLOAT (HISNI I, J) ) * PBU> 

LETT(NH)- I 
LYR(NH) * J 
4 CONTINUE 
3000 CONTINUE 

IF (GUESS.GT .1.01 GO TO 3005 
GUESS - 1.0E10 



FORTRAN IV^G LEVElT 1 ,"HU0"4 


ASS IGN 


DATE' - 70105 


“09/14/08 


0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 


0150 

0151 

0152 

0153 

0154 

0155 

0156 


3005 CONTINUE 
C 

CALL CAPARL 
C 

16 WRITE ( 6*20011 N5TG.NV*NFAM*NCl*NK!StKYRS*IBYtGUE5S 
C CALCULATE EXPONENT FOR LEARNING CURVE 

8020 AL0G2 « AL0G(2.1 

IF (IG.LT.O) GO TO 8030 
DO 660 I=1,NSTG 
DO 660 J=l,3 

IF (MODEM* JJ.NE.Cn GO TO 660 
PLC 1 1 t J ) - ALOG (PIC( 1 1 J ) > /ALQG2 
660 CONTINUE 

8030 IF ( 1 1 . LT.O.OR.NCI .EQ.O) GO TO 17 
DO 6B0 I-ltNCI 

680 PLC I NT Ml * ALOG! PLCINT (II) /AL0G2 
C 

17 1FLAG = 0 
CALL STGNUM 

C 

61 KFLAG » O 

IF { FINISH. GT l.AND.MJHD.EO 01 GO TO 305 
C 

CALL DEC I SN 
C 

IF (KFLAG* EQ* 1 ) GO TO 1 
C 

305 CALL AVAIL 
C 

GUESS1 « GUESS 

620 CALL CHOOZ *. 

IF INErXT -GE- 500, Oft, GUESS.LT - *001 1 HYRS - 100 
1F(NEXT*GE. 500. OR.GUESS.LT.. 0011 GO TO \ 

NUHBR • NUH6R + 1 
C 

C *** PRINT OUT BEST ASSIGNMENT *♦* 

WRITE (6*4010) 

DO 805 J*1 »NM 
L-LETT(JI 
K»LYR(JJ 
H-1899+TBY+K 

IF(YRLHIJ).NE.O.O) GO TO B04 
H1NIJ1 w O 


FORTRAN IV G LEVEL 1* MOO 4 


DATE - 70105 


0157 

015B 

0159 

0160 
0161 
0162 


804 

0163 

0164 



0165 



0166 


1 

0167 

C 

I 

BOS 

016S 

C 


0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 


1 

0177 

0178 

0179 


806 

0180 


99 

0181 


100 

0182 


101 

01B3 


102 

0184 


103 

0185 


104 

0186 


105 

0187 


106 

0188 


107 

0189 


no 

0140 


m 

0191 


202 

0192 


206 

0193 


213 1 


I F (LETT (J-l ) .NE.L) WRITE (6,206)NAKE{ LI * VLR (L) »WPR(L) ,H» YRLHt J > 
IF (LETTCJ-l I . EQ.l ) WRITE(6f 2061 ) M,YRLM(J) 

GO TO 805 
I«MIN( J| 

IA.VEHM.n 
IB»VEH( 2, 1 1 
IC«VEH(3,!1 
ID=VEH(4.II 

I F (LETT (J-l ) .NE.L) WRITE (6,202 1NAHEI LI » VLR ID .WPRILl »H,YRLH( J ) 
tSTG ( I A ) * STG t ID) *STG( ]C),$TG( ID) 

IF(LETTIJ-n.EO.L) WRITE (6,2021 ) H*YRLM( J) * STG( IA)*STGI IB), 
l STG( IC)tSTG(ID) 


CALL STGNUM 

GUESS - GUESS1 
IF { If LAG. EO. 2 ) 
GO TO 620 
KNSTG - N5TG 
KNFAH * NFAM 
KNCI « NCI 
KNH1S = NMIS 
KNV * NV 
KNSP * NSPR 
RETURN 


1 15* 25X* 612 ) 

5 3,3X, 2F6.3,7I3rlX,3Tl ) 


A6,F10»2t 15* I2*F10.2 * 212) 
F10.2 » 15* 4F5.3»Fla. 2*512, 13) 


IT (1X»A6, 6XtFl0.0*4X*FL0.0*5X*14*4X*F5.2t9X«32HN0 LAUNCH VEHl 
1CLE CAN ACCOMPLISH) 

kT (16H STAGE COST DATA/6H0T ITLE*3 ( 16H RECURRING LC »,68H D 
1EVEL0PMENT SUSTAINING AVAILABLE SHARED COST GROUPS BATCH FACT/ 


■H-6 



FORTRAN 


-*om 

0195 

0196 

0197 

0198 

0199 

0200 


0201 

0202 

0203 


0204 

0205 

0206 
0207 


0208 


FORTRAN 


IV~G CEVEC It MOD"% "ASSIGN OATE~= 70105 09/14708 

2 lOXtlflH ( HARDWARE It 

3 6X,10H(ETR 0NLY) t 6X, lOHtWTR ONLY 1 ,3flXi 0HFROK T0//1 

214 FORHAT (1H0///17HG SHARED COST OATA/37KONO. TITLE DEVELOPMENT S 
1USTA1NING//1 

2141 FORHAT ( IX, 12 ,2X ,*4, 2X,2FI3.2 1 

215 FORHAT I IH0///22K0INTEGRAT10N COST 0ATA/59H0L0WER UPPER RECUR 
1RINC LC DEVELOPMENT SUSTAINJNG/14H GROUP GROUP// ) 

216 FORMAT C2X, A4, 4X , A4,Fl 1 .2,F7.3, 2F13.21 

217 FORHAT tl4HlM!SS10N MOOEL/48KO MISSION VELOCITY PAYLOAD P 
1RI0RITY TRr 17X, 15HLAUNCH SCHEDULE / / 50X, 20 I 4/ 1H /) 

219 FORHAT <1X,I2,1X,A6,2X,ZF10.0,F10.2,4X,I2»2X,20I41 
2001 FORHAT < 17HINUM8ER OF STAGES, 8X » 15/19H0NUMBER OF VEHtCLES,6X , 15/ 

1 19HDNUMBER OF FAMILIES, 6X,1 5/2 BHONUHBE R OF INTEGRATION C0ST$»12/ 

2 19H0NUMBER OF MISSIONS, 6X, I5/16H0NUHBER OF YEARS, 9X, 15/ 

3 17H0LAUNCH BASE YEAR ,8X, 1 5/20HOTOTAL COST EST IMATE.F12.2 1 
2021 FORMAT (42X, (4,4X ,F5.2, 9X,4 (A4, 1X1 1 

2061 FORHAT I42X, 14,4X,F5 »2«9X,32HN0 LAUNCH VEHICLE CAN ACCOMPLISH] 

4010 F0RHAT<8H1MI$SI0N»4X,14HCHARACTERISTIC»4X,7HPAYL0A0,4X»6KLAUNCM, 

1 4X,6HNUH8ER,10X,7H0PTIHUH/7H TITLE, 4X, 16HVEL0C I TYC FT/SEC 1 ,4X, 

2 5H(LBSIt6X,4HYEAR,3X, 11H0F LAUNCHES ,4X, IAHLAUNCH VEHICLE//) 

4102 FORHAT ( 1H0///5X, 2 WEND OF DATA - JOB COMPLETE 1 

8001 FORHAT 

1 <1X,A4,1X,3< F9,2,F7*3 1 ,F13« 2,F12,2, 2X, 14, IX, 14, 2X, 414, 191 

8003 FORMAT (4X«4F10.31 

8004 FORHAT C3X, 19HRECURR ING COST TYPE,I2,22H' FOR X LESS THAN OR -» 

1 F6.2,14H» TOTAL COST *,F6.2, 19H.F0R X GREATER THAN,P6.2» 

2 14H, TOTAL COST «,F6.2,4H X +,F6*21 
END 


IV G LEVEL l, MOD 4 ASSIGN 


DATE » 70105 09/14/08 


TOTAL H EMORY REQUIREMENTS 002130 BYTES 



i f 88-level TTnkage editor options specified' CistTncal.Hap 

VARIABLE OPTIONS USED - SIZE* 1 126976,24576) 
,IEH0000 NAME HOXOZAN(R) 

IEW046I IBCUM- 
( !EW0461 CAPABL 
1EW0461 STCNUM 
1EW0461 DEC ISN 
IEW0461 AVAIL 
IEH0461 CHDOZ 
I1EH0461 ALOG 


DEFAULT OPT ION IS) USED 


MODULE HAP 


CONTROL SECTION 


ENTRY 


NAME 

ORIGIN 

LENGTH 

ASSIGN 

00 

2130 

SAVEA 

2130 

2160 

SAVEA1 

4290 

33C 

SAVEB 

45D0 

1BD0 

5AVEB1 

61 AO 

410 

SAVECZ 

65B0 

3654 

ASGN 

9C0B 

436 

SAVE DC 

A040 

5A8 

SAVESM 

A5EA 

30F8 

SAVECL 

06E0 

V/8F8 

SAVED 

0FD8 

690 

SAVELZ 

E66fl 

FO 

SAVENV 

E75B 

8 

BATCH 

E760 

2C 

SAVESG 

E790 

4 

SAVE NR 

E79fl 

e 

SCRACH 

E7A0 

47A4 


NAME LOCATION NAME LOCATION NAME LOCATION NAME LCpATH 


ENTRY ADDRESS 00 

TOTAL LENGTH 12F4B 

■_****H0X02AN non replaced IN DATA set 


DIAGNOSTIC MESSAGE DIRECTORY 


(17) OS/ 3 60 FORTRAN H 


DATE 70.104/16.06,05 


COMPILER OPTIONS - NAME- HAIN,0PT«02 >1 INECNT-44,SOURCE»BCD,NOLIST,NODECK*LOAO,NOHAP,NOEOIT, ID,NOX&Ef 
ISN 0002 SUBROUTINE AVAIL * 

C **« ADO AVAILABILITY TO VEHICLE CAPABILITY MATRIX*** 

ISN 0003 INTEGER*2 LYR, LETT, h IN, IS»NONREC*NYD,LABS»lABF, LABI ,HAT,VEH,LYD, 

1 NYRSST 

C THE FOLLOWING STORAGE IS USED IN ASSIGN AND MASTER 

ISN 0004 COHHON/SAVEA/NH,YRLM(25O>»LYRt252)»LETTl25O),HjNt250>, 

* 1 DS(5C) , SUST { 50) ,YD 150) , IS (106) * NUMD T NONREC I 60,20) ,NYO( 501 , 

2 LABSI40),LABFI301,LABI(4D», RXDI LZ»50) ,MAT(50) 

C THE FOLLOWING STORAGE IS USED IN MASTER AND SMOOTH AND ASSICN 

ISN 0005 C0HHON/SAVEBl/NMl$,VEH<4,60),FlNISH,RCOST<61) f $TGt40),NSPR, 

1 NYRSST (72) 

C THE FOLLOWING STORAGE IS USED IN ASSIGN AND CHODZ 
ISN 0006 C0HH0NV5AVECZ /RECUR ( 60, 20,2)*VNH(4»250),LYD<S0) tNEXttGOESS, 

1 LTRI50J 

C THE FOLLOWING STORAGE IS USED IN CAPABL AND ASSIGN 
ISN 0007 COMMON/ SAVECL/NOPT, IV, KNV,IG, PLHD ( 50 ) » KODE V ( 60) , KODS ( 401 , 

2 tVEHA(50l,VLRl50),HPR(50),VH(2,60),NPLSf50),MR[50),NRR(50) . 

ISN 0003 C0HH0N/SAVELZ/LZC6O) 

ISN 0009 COHMON/SAVENV/NV,MYRS 


ISN 0010 
ISN 0011 
ISN 0012 
ISN 0013 
ISN 0014 
ISN 0016 
ISN 0017 
ISN 0019 
ISN 0020 
ISN 0022 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0027 
ISN 0026 
ISN 0029 
ISN 0030 

ISN 0031 
ISN 0032 
ISN 0033 
ISN 0034 


, DO 39 J « 1, NM 

KO - LYR(J) 

L « LETT(J) 

DO 35 I * 1 ,NV 

IF( lTEK(VH{ l, I ) ,L, 1) .EQ.O) GO TO 3B 
DO 36 M b 1,20 

IF INDNRECI I »H) ,E0.0) GO TO 37 
NO = NONRECflvHI 
1F(K0.LT.NY0(N0)) GO TO 38 
IF(KO.GT.LYD(NO)) GO TO 38 

36 CONTINUE 

37 L2( 1 ) ■ 1 
GO TO 35 

38 LZII) • 0 
35 CONTINUE 

CALL PACK ( LZtVNM( 1, J ) ,NV, 1 1 

39 CONTINUF 

C NM LESS THAN 136 FOR PRESENT FORMATS 

284 WRITE (6,4000) 

KNM - KIN01 45»NM) 

K - 1 

285 WRITE I 6,4002 1 (LETTtJ), J - X,KNH) 


H-8 



ISN 0035 
ISN 0036 
ISN 0037 
ISN 0033 
ISN 0039 
ISN 0040 
ISN 0041 
ISN 0042 
ISN 0043 
ISN 0044 
ISN 0045 
ISN 0047 
ISN 0049 
ISN 0050 
ISN 0051 
ISN 0052 
ISN 0053 
ISN 0054 
ISN 0055 
ISN 0056 
ISN 0057 


ISN 0058 


ISN 0059 
ISN 0060 


ISN 0061 
ISN 0062 


00 420 I»1#NV 
IA«VEH(l?n 
!B a VEH<2# I ) 

IC-VEHt3,l> 

I0>VEH(4 t Il 

DO 286 J » KfKNM 

LZ< Jtl-K ) - 1TEN(VNKU,J)#1#1> 

286 CONTINUE 

KfUTEI 6, 41Q0M ,STG(lA),STG{Ifi>iSTG<IC)»STG< ID) # (LZ( JCl-K) , J-K,KttMt 
420 CONTINUE 

1 F ( NH . LE . KNH ) RETURN 
IF1NH.GT.90.AND.K.EQ.46) GO TO 339 
KNH = HINDI 90, NH) 

K «* 46 

WRITE ( 6,40011 
GO TO 2B5 

339 KNK * MINOI 135»NH) 

K - 91 

WRITE! 6,4003) 

GO TO 285 

4000 FORMAT t 1H1 ,34X»51HV E H I C L 6 / H 1 S S I 0 H C A P A B 1 L 1 

1 T Y/46X t 30MIl « POSSIBLE, 0 * IMPOSSIBLE ) /1H0,43X# 10(2Hl }, 

2 10I2H2 1.10I2H3 ),6(2H4 )/18H VEHICLE / HlSSI0N,9X#4{20Hi 234 
35 6 7 8 9 0 ) »9Hl 234 5//> 

4001 FORMAT (1H0/ 1H0,25X,4 (2K4 ),10(2H5 ),10(2K6 )»10<2H7 1,10 (2KB )»- 

1 2H9 /IBM VEHICLE / HISSI0N,9X, 9H6 789 0»4{20H1 23456 *7 89 
20)//} 

4002 FORMAT | 1H0,7X, 14HMISSI0N NUMBER# 4X,45I2) 

4003 FORMAT { LHO/ 1H0»25X,9< 2H9 ) * 10(2H10) #10 1 2H11) ,10( 2H12) »6<2H19) / 

1 IBM VEHICLE / MISSION# 9X,4(20K1 2345678901# 

2 9K1 2 3 4 5//> 

4100 FORMAT I 1H , 12, IX#4( A4# 1X1 ,2X,45I2 ) 

END 


****** END of COMPILATION ****** 


F8B-LEVEL‘U1NKAGE~EDIT0R OPTIONS SPECIFIED L 1ST, XREF #HAP > NCAL 

VARIABLE OPTIONS USED - SI ZE*C 126976,24576) * DEFAULT ORTIOWISI USED 

IEWOOOO NAME H0X02AL(R) 

IEW0461 ITEM 
IEW0461 PACK 
IEW0461 1BC0H- 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 

NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION HAHE 

AVAIL 00 710 

SAVEA 710 2160 

SAVEB1 2870 410 

SAVEC2 2C80 3654 

SAVECL 6208 8FB 

SAVELZ 6B0O FO 

SAVENV 6CC0 8 


LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

2F0 

SAVEA 

SAVEA 

2F4 

SAVEA 

SAVEA 

2F8 

SAVEB1 

SAVEB1 

2FC 

SAVECZ 

SAVECZ 

300 

SAVECL 

SAVECZ 

304 

SAVECZ 

SAVECZ 

308 

SAVECL 

SAVECL 

30C 

SAVELZ 

SAVELZ 

310 

SAVENV 

SAVENV 

314 

ITEM 

SUNRE50LVEO 

318 

PACK 

SUN RE SOLVED 

3 1C 

IBCOM- 

1UNRES0LVED 

250 

SAVEL2 

SAVELZ 

258 

SAVENV 

SAVENV 

ENTRY ADDRESS 

00 





TOTAL LENGTH 

6CCB 






****K0X02AL NOV REPLACED IN OATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE# NCAL WAS SPECIFIED. 


LOCATION 


H-9 



.tl7> 


OS/ 360 FORTRAN" H~ ~ D AT E”TO ,T04/ 1 6,09.01 


COMPILER OPTIONS - NAME- HAIN r OPT-02,LINSCNT-44, SOURCE , BCD ,NOL 1ST ,NOOECK, 10AD,N0HAP*N0EDIT, JD,NOXREF 
1SN 0002 SUBROUTINE CAPABL 

C VEHICLE DATA IS INPUT 

C THE ORIGINAL CAPABILITY MATRIX BETWEEN VEHICLE AND MISSION IS SET UP 
C 

ISN 0003 DOUBLE PRECISION NAHE 

ISN 0004 INTEGERS VEH* NYRSST 

C THE FOLLOWING STORAGE IS USED IN MASTER AND SMOOTH AND ASSIGN 
ISN 0005 COMHON/SAVEB/NAHEt 56 ) t MITR, ALP l (4 1 60>»PL0I72 ) *PLSI72I * 

1 PLRI50),RDIST(56*4) ,RFlXOt 12,72) »NSTRFXI72> ,NYRSFXt721 ,TREF 

ISN 0006 C0HK0N/SAVEBi/NHlS,VEH(4,60},FlN!SH,RCDSt(6U v 5TG<40),NSPR, 

1 NYRSST 172 1 

C THE FOLLOWING STORAGE IS USEO IN CAPABL AND ASSIGN 
ISN 0007 COMHON/SAVECL/NOPTtlVtKNV,IG* PL HD (501 ,KODE V 1 60 ) » K DOS ( 40 1 * 

2 I VEH A ( 50 ) tVLRI 50) ,UPR(50) ,VMI2,60> *NPLS(50) ,Hft( 50) ,NRR(50) 

ISN 0006 COMHGN/SAVESG/NSTG 

ISN 0009 COHM0N/SAVELZ/LZI6OI 

ISN 0010 COMMON/S A VENV/NV. hY RS «• 

C STORAGE USEO IN SUBROUTINE ONLY C SAVED FOR BATCHING RUNS 
ISN 0011 COMMON/S AVED/Bl ( 60} ,82 ( 60) ,63 (60 ), 84(60 ) »NVS( 60) ,HRV( 60) »NRP (60) 

ISN 0012 COMMON/ SCR ACH/DUHC 1 1156) ,NEH(4«60 ) tDUMA(3lB9) 

ISN 0013 IF(IV.LT.O) GO TO 14 

ISN 0015 002 I e 1,60 

ISN 0016 , ALP I (1,11 = ,05 

ISN 0017 ALP! (2,11 «* .20 

ISN 0018 . ALP I (3,1) = .50 

ISN 0019 2 ALP 1 14,1) = .25 

ISM 0020 14 00 281 J = 1,60 

ISN 0021 I F < I V.LT.O.AND. J.GT.KNV) RETURN 

ISN/ 0023 IFUV.LT.O.AND.IG.LT. 01 GO TO 27 

ISN 0025 IF t IV.LT.O! GD TO 15 

ISN 0027 READI5, 106) INEH l I »J) t 1-1.41 ,B1 (J> ,B2(J) ,B3t J ) ,B4| J) ,KOD£V( J) 

ISN 0028 IF|KODEVtJ). 6 Q.O> RETURN 

ISN 0030 DO 16 K » 1*4 

ISN 0031 16 VEH(K,J) - NEHI K, J ) 

ISN 0032 READ 15,108) NV5( J) ,HRVt J ) ,NRP( J) , JKEY 

ISM 0033 IF IJKEY.EO.O) GO TO 15 

ISN 0035 REAO (5,1091 (ALP! ( I , J ) ,1 -1,4) 

ISN 0036 15 DU 26 I = 1,4 

ISN 0037 IF(VEHU,J).EO.O) GO TO 27 

ISN 0039 DO 25 K » 1,NSTG 

ISN 0040 IF(VEK(I,J).NE • K0D5 l K ) 1 GO TO 25 

ISN 0042 VEH I ! * J ) - K 


ISN 0043 
ISN 0044 
ISN 0045 
ISN 0046 
ISN 0047 
ISN 0048 
ISN 0049 
ISN 0050 
ISN 0051 
ISN 0052 
ISN 0053 
ISN 0055 
ISN 0057 
ISN 0058 
|ISN 0059 
ISN 0061 
ISN 0062 
J ISN 0064 
‘ISN 0066 
ISN 0068 
ISN 0070 
ISN 0072 
ISN 0074 
ISN 0076 
ISN 0078 
ISN 0079 
ISN 0080 
ISN 0081 
ISN 0082 
ISN 0083 
ISN 0084 
ISN 0085 
ISN 0086 


GO TO 26 

25 CONTINUE 

26 CONTINUE 

27 NV - J 

Cl - 81IJ1 
C2 * 82<J> 

C3 = B3IJ) 

C4 = 84tJ) 

DO 28 I=1,NM1S 

izm«o 

IF UVEHAID.tO.O) GQ TO 21 

IF ( IVEHAM ) .EO.KOOEV ( J ) ) LZU1 » 1 

GO TO 28 

21 VLX=VLR 1 1 )“25573. 

IFIVLX.GE.C4) GO TO 28 
WP-EXP CCl-C2*VLX-C3/t C4-VLX ) ) 
IFlWP.GT.WPRtin LZIII-1 
IFINOPT .NE.3 ) GO TO ZB 
!F{LZU).EO.O) GO TO 28 
IFCNPLS ( I ) .EO.O) GO TO 8023 
IFtNPLSin.NE.NVStJ) ) GO TO 8024 

8023 IF CMRt I ) »EQ»0) GO TO 8025 
iF(HRVfJ).NE.l) GO TO 8024 

8025 IFINRRU).LE.NRP(J)) GO TO 28 

8024 LZ (1 ) « 0 

28 CONTINUE 

CALL PACKtLZ, ,NHIS,1 ) 

281 CONTINUE 
99 RETURN 

106 FORMAT |4I2,4E13. 6, 18X, 12 ) 

108 FORMAT f 3X,3!2,70X, I 1 ) 

109 FORMAT (3X,4F5.2> 

END 


****** END OF COMPILATION ****** 


H-10 



Fea-LEVEL LINKAGE EDITOR OPTIONS' SPECIFIED Ll'ST»XREF7fi'AP~,NCAL ‘ 

VARIABLE OPTIONS USED - 5IZE«( 126976*24576 ) DEFAULT OPTION! SI USED 


IEH0000 

NAME H0X02CL (R ) 







I EH 0 A 61 

PACK 








IEU0A61 

EXP 








I EH 0 A 61 

IBCDM- 












CROSS REFERENCE TABLE 





CONTROL 

SECTION 


ENTRY 






NAME 

ORIGIN 

LENGTH 

NAME 

LOCATION NAME LOCATION 

NAME 

LOCATION 

NAME 

Location 

CAPABL 

00 

652 







SAVED 

658 

1800 







SAVED! 

2226 

A10 







SAVE CL 

2 630 

6F8 







SAVESG 

2F30 

A 







SAVELZ 

2F3B 

FO 







SAVENV 

3026 

8 







SAVED 

3030 

690 







SCRACH 

36C0 

A7AA 








LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

120 

saveb 

SAVEB 

12A 

SAVEB 

SAVEB 

128 

SAVEB1 

SAVES 1 

12C 

SAVECL 

SAVECL 

130 

SAVESG 

SAVESG 

134 

SAVELZ 

SAVELZ 

138 

SAVENV 

SAVENV 

13C 

SAVED 

SAVED 

1A0 

SCRACH 

SCRACH 

144 

SCRACH 

SCRACH 

1A8 

PACK 

iUNRESOLVED 

14C 

Exp 

SUNRESOLVED 

150 

1 BCOH= 

iUNRESOLVEO 

AO 

SAVELZ 

SAVfeLZ 

A8 

SAVEB1 

SAVEB1 




ENTRY ADDRESS 

00 





TOTAL LENGTH 

7E6fl 






****MOX02CL NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE OIRECTORY 


FORTRAN itTG LEVEL 1» MOO A CHOOZ 


OATE = 70104 16/34/16 


OOOl 


0002 


0003 


0004 


SUBROUTINE CHOOZ 

C DETERMINE OPTIMUM VEHICLE TO MISSION ASSIGNMENT 
C 

C THE FOLLOWING STORAGE IS USED IN ASSIGN AND MASTER 

I NTEGER*2 NS A VE , LYR , LETT ,H IN, I S, NONREC , NYD, L A8S. LABF , LAB I , HAT , 

1 LYO 
C 

CQHMON/SAVEA/NH r YRLH< 2501 ,LYR<252) , LETT (250) ,MIN( 2501 , 

1 DS(50),SUST (50) ,YD (50 ) , IS ( 1061 , NUMO,NONREC( 60, 20) ,NYDI50l , 

2 LABS (AO I , LABF ( 30) , LAB I (AO) , RXO( 12*501 ,HAT(50) 

C THE FOLLOWING STORAGE IS USED IN ASSIGN AND CHOOZ 

COMMON/ SAVECZ/RCCUJU 60,20*2 ),VNM( A, 2501 ,LYD< 50) , NEXT, GUESS, 

1 LTR(50) 

C 


0005 


C OHM ON/SCR ACH /NODE (4,500) , WR ( 50 ) .COST (2 , 250 

1 W2I500I ,Z (5001 *Wl500) ,N5AVE( 1Q1,TOS(50D ) ,0UH(30] 

0006 


COMHON/SAVEL8/KX,Kl,NX,K,KZ,NC0ST,MZ(6O) 

0007 


COMMON/SAVELZ/LZf 60) 

0006 


C OKMON / SAVENV / NV , MY R S 

0009 


OATA I ONES /— 1 / 

0010 


IF(MYRS.GT.IO) GO TO 2 

0011 


KI = 1 

0012 


KNEX o MYRS 

0013 


GO TO 3 

0014 


2 KI « 2 

0015 


KNEX • IMYRS ♦ l)/2 

0016 


3 CONTINUE 


C 

*** INITIALIZE FUNCTIONS *** 

0017 


7 NEXT=1 

0018 


NX-1 

0019 


KPNX = 10 

0020 


DO 16 1*1,4 

0021 


1 6 4 NOOE ( 1 , 1 ) * I ONES 



»** FIND W(ll « SUM OF COLUMN HINIHUMS OF FIRST i 

0022 


wm-0,0 

0023 


W2U) =0.0 

0024 


70S ( 1 ) * 0.0 

0025 


00 19 J»1,NH 

0026 


IY = LYRIJ) 


**« 


n-ii 



FORTRAN IV*G LEVEL It HOD 4 


CHOOZ“ 


'DATE'* 70104 


16/34/16 


002T 



JX - LETTCJ1 

0028 



ITR « LTRCJX1 

0029 



CALL UNPACK < HZ t VNH ( 1 > J ) » N V « 1 ) 

0030 



COST ( 1 , J ) » 1.0E30 

0031 



COST C 2t J 1 - 1.0E30 

0032 



DO 18 I-l.NV 

0033 



IFCKzm.EQ.O) GO TO 18 

0034 



CX = YRLHU)*RECURUtlYtlTR) 

0035 



I FICX.GE.COST C2t J) ) GO TO 18 

0036 



IFCCX.LT.COSTCltJM GO TO 176 

0037 



COST ( 2 . J) * CX 

0038 



GO TO 18 

0039 


176 

COST f 2. J I - COST 1 1 tJ 1 

0040 



COST! 1« J) - CX 

0041 



MINI J 1 » I 

0042 


18 

CONTINUE 

0043 



IF<COST( 1,J)»LT. 1.02251 GO TO 20 

0044 



YRLHIJI-O.O 

0045 



COST C It J I * 0.0 

0046 



COST C2t J 1 - 0.0 

0047 


20 

W2C11 - H2U) + COST C2t J I 

0048 


19 

MU) « Hill + COST 1 1 1 J 1 

0049 



IFINUHO.NE.O) GO TO 29 

0050 



HR1TEC 6f 21 1 > VCll 

0051 


211 

FORMAT C1H0//25H PROGRAM RECURRING COST - 

0052 



RETURN 


C 

c 


**+ PICK COST TO CONSIDER NEXT *** 

0053 


29 

NCOST * 0 

0054 



NKEY - 0 

0055 



FHAX » -1.0E35 

0056 



IFCKPNX.EQ.NX1 GO TO 30 

0057 



CALL UNPACK lLZ«N00EUtNX) t NUHDt4l 

0058 


30 

00 35 NIC • I j NUHD 

0059 



IFCLZ1NIC1.LT. 15} GO TO 35 

0060 



NKEY ■ NKEY + 1 

0061 



IFIKPNX.EQ.NX1 GO TO 300 

0062 



WRINIC) * 0.0 

0063 



DO 33 J- 1 j KM 

00 64 



IFCYRLKCJ1.EQ.0.01 GO TO 33 

0065 



CALL UNPACK IKZrVNHC U JltNVtl) 

0066 



CHIN « 1.0E30 


T=ORT(TAN IV C LEVEL 1» HOD 4 


CHOOZ 


DATE « 70104 > 16/34/16 


0067 

0063 

0067 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 
0073 

0079 

0080 
0081 
0082 
0083 
0004 

0085 

0086 

0087 

0089 

0089 

0090 

0091 

0092 

0093 


0094 

0095 

0096 

0097 
009B 

0099 

0100 
0101 
0102 
0103 


KG * LYR(J) 

JX * LETKJl 
1TR * LTRCJX1 

00 32 I ■ IvltV 
IFtHZin.E0.01 GD TO 32 
DO 31 H » 1, 20 

IFCN0NRECUtMl.E0.01 GO TO 315 
NO = NONrECUiHI 
IF(NO.EO.NIC) GO TO 32 
lFtKI*LZ(N01.LT.KO) GO TO 32 

31 CONTINUE 

315 CX * YRLM(J)*RECURUtKOtITR> 

IF1CX.LT.CHINI CNIH = CX 

32 CONTINUE 

WRCNIC1 * HR 1 N 1C) + CHIN 

33 CONTINUE 

300 PF tt WR (NIC) - HINXI 

lFtSUSTCNlCl.GT.4.0) DF * DSCNIC)*0.5 +■ SUSTINICI + PF 
I F( SUST (NIC) «GE. .001 .AND.SUST (NIC ) .LE.2.0) OF - Q.5*DS(NJC) + 
1 SUST 1 NIC) + PF - 1.0E32 

1 FC SUST C NIC) .GT.2.0.AND. SUST(NIC) .LE.4.0) DF-Q.5*DS(NICI +■ 

I SUSTINICI + PF - 1.0E5 

ifisustcnio.lt. . 001) OF - 0.5+DStNICI +■ 4.0 + PF 
II^CDF. LE« FHAX) GO TO 35 
PHAX = DF 
NCOS! -NIC 

35 CONTINUE 

36 IFCNCOST.EQ.OI GO TO 75 
C 

295 CONTINUE 
C 

C ALLOCATE SPACE FOR NEW NODES 
C 

IFISUSTCNC0ST1 .GE..001I J=0 + (NYDlNCQST) - 1>/M 

1 Ft SUST tNCOSTl.LT.. 001) J « KNEX - 1 

IF(NEXT.EQ.l) GO TO 41 

DO 40 I - 2»NEXT 
K « NEXT +2-1 
1FCZCKI.LE.GUESS1 GO TD 40 
J-J+l 

IF1SUSTINCOST1.GE..001I NSAVECJ1 - K 
IFCSUSTCNC0ST1.lt. .001) NSAVEC11 - X 
IFCJ.E0.KNEX1 GO TO 44 



FORTRAN rV"G LEVEL l» MOD 4 


CHDOZ 


DATE' -^70104 “ 


16734716 


0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 


0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 
0127 


0128 

0129 

0130 

0131 

0132 

0133 

0134 


0135 


40 CONTINUE 

41 IF ( J.EQ.KNEX) GO TO 44 
J»J+1 

NEXT=NEXT+1 

IFINEXT . E0.500) GO TO 74 
IF (SUSTlNCOSTI *GE* *001 ) NSAVE(J) = NEXT 
I F ( SUST (NCOST ) . L T . . 00 1 } NSAVE(l) ■ NEXT 
GO TO 41 

C * * 

C **» BRANCH WITH VARYING YEARS OF SUSTAINING COST *«* 

44 DO 52 K=l,iO 

IF<SUST(NCOSTKGE.*OOUAND.K.LT*1+(NYOCNCOST}-1J/KI> GO TO 52 
KX«N5AVE(K) 

IF<IK-II*KI*LT*LY0(NC0STI1 GO TO 45 
W tjKX > * 1.0E30 
Z (KX) =20.0E30 
GO TO 509 

45 DO 46 1 = 1,4 

46 NOOEU,KX)»NODE(I,NX> 

LZ(NC0ST>=K-1 

IF(K.E0.1 ♦ tNYOtNCOSTl-n/Ktl LZ(NCOST) - O 

CALL PACMLZ,N0DE(l,KX),NUH0 t 4) 

C 

CALL LSOUNO 
C 

509 IF(SUST<NCOST).LT..001) GO TO 53 
IFIK1*K.GE.HYRS> GO TO 53 

52 CONTINUE 
C 

C *** BRANCH INCLUDING NCOST A NO ALL SUSTAINING - PUT IN NODE NX *** 

53 L2INC0ST1 =■ (LYDINC0ST1 + KI - 1)/K! 

CALL PACK (LZ,N0DEtl,NX),NUHD,4) 

I F (U ( NX ) «GT *W I KX ) 000 1 • AN D 2 ( NX ) • GT *W2 ( KX ) -0*000 1 1 K - 50 
IFIW(NX>.GT.W(KXl-.00Ol*AND.U2(NXl.GT»l.0E25.AN0.W2(KXl*-U2tNX).LT. 

1 1.0E25) K - 50 

KX = NX 

KZ = LYDINCOSTI 
C 

CALL LBOUNO 
C 
C 

C *** IMPROVE GUESS IF AT BOTTOM OF TREE 
1FINKEY.GT.1) GO TO 55 


"FORTRAN^lVrc LEVEL 1, HOD 4 


CHDOZ DATE * 70104 16/34/16 


0136 



1F<Z<HX).LT. GUESS) GUESS - Z(NX) 


0137 



DO 51 I=1,KNEX 


0138 



I F t SUST f NCOST 1 *G6* . 00 1 . AND. 1 . LT . 1+ ( N YD ( NCOST 1-1 > /K 1 1 GO 

TO 51 

0139 



K=NSAV£{ I 1 


0140 



1F(Z(K)«LT. GUESS) GUESS « Z(K) 


0141 



I F (5UST (NCOST ) • LT* • 00 1 ) GO TO 55 


0142 


51 

CONTINUE 



C 


PICK NEXT NODE FOR BRANCHING AS THE ONE WITH LEAST LOWER 

BOUND Z 

0143 


55 

KPNX » NX 


0144 



NX ■ 1 


0145 



DO 59 1-2, NEXT 


0146 



lFlZINXl.CT.Zm) NX - I 


0147 


59 

CONTINUE 


0148 



IF 1 Z (NX )*LE* GUESS) GO TO 29 


0149 



WRITE(6,202> 


0150 



GUESS « 0.0 


0151 



GO TO 99 


0152 


74 

WRITE ( 6*2031 


0153 



GO TO 99 


0154 


75 

00 80 J » 1 1 NH 


0155 



IF (YRLM( J ] « EQ.O.O) GO TO 80 


0156 



CALL UNPACK ( HZ t VNM 1 1 , J ) , NV , 1 1 


0157 



CH1N=1,OE30 


0158 



KO » LYRCJ) 


0159 



JX = LETTU1 


0160 



ITR « LTRUX) 


0161 



DO 78 l=l,NV 


0162 



I F(HZ f I ) .EQ.O) GO TO 78 


0163 



DO 77 1 1 20 


0164 



iFlNONRECttfKl.EQ.O) GO TO 7T5 


0165 



NO -NONREC(t,Kl 


0166 



1 F(KI*LZ (NO) .LT.KO) GO TO 78 


0167 


77 

CONTINUE 


0168 


775 

CX»TRLh( J)*RECURC 1 »K0, ITR) 


0169 



IF fCX.GE.CHlN) GO TO 78 


0170 



CMIN>CX 


0171 



KIN(J)>I 


0172 


78 

CONTINUE 


0173 


80 

CONTINUE 


0174 



OHIN = Z (NX) - W(NX) 


0175 



WRIT6( 6*201) NX,W(NX) t DHIN t Z[NX) 


0176 



00 76 NO « 1,NUHD 



H-13! 



FORTRAN 

0177 

0170 

0179 

oieo 

oiei 

0182 


FORTRAN 


iVG LEVEL 1, MOD 4 CHOOZ DATE - 70104 16/34/16 

76 LltMQl - LZ(N0)*X1 

201 FORHAT < 1K0, 13 1 1H*J r 17H SOLUTION U2(1HM/1H ,I3,29X« 

1 3 C F9. 2 T 5X )) 

202 FORMAT I14H1GUESS TOO LOW) 

203 FORMAT 1 19H1EXCEE0E0 500 NOOES) 

99 RETURN 

END 


IV G LEVEL li HOD 4 CHOOZ 


DATE ■ 70104 16/34/16 


TOTAL MEMORY REQUIREMENTS 001544 BYTES 



Fee-LEVElTlNKAGE EDITOR OPTIONS SPECIFIED HST»NCAL »hAP 
\ VARIABLE OPTIONS USEO - SI ZEM 126976 1 2*576) DEFAULT OPTIONI5) USED 

IEWOOOO NAHE MOXOZCZ(R) 

JEWO*6l UNPACK 
KEW0*6l IBCOH- 
IIEH0461 PACK 
[lEWO*61 L BOUND 


HOOULE HAP 


CONTROL SECTION # ENTRV 

NAHE ORIGIN LENGTH HAKE LOCATION NAME LOCATION NAHE LOCATION NAHE LOCATION 

CHDOZ 00 15** 

SAVE A 15*B 2160 

SAVECZ 36A8 365* 

SCRACH 6000 A7AA 

SAVELB BAA 8 108 

SAVELZ B5B0 FO 

SAVENV B6A0 8 


ENTRY ADDRESS 00 

TOTAL LENGTH B6A8 

****H0X02CZ NOW REPLACED JN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


IEW0A61 WARNING - SYHBDL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE* NCAL WAS SPECIFIED. 


117) GS/360 FORTRAN H DATE 70.10*/16.3*.*9 

COMPILER OPTIONS - NAHE* HA IN*OPT«02*L INECNT»A* f SOURCE ,BCD»NOL 1ST * NOOECK* LOAD* N0HAP*N0EDIT» ID*N0XREF 
ISN 0002 SUBROUTINE CONSTR 

C DETERMINE IF ANY PROGRAM CONSTRAINTS HAVE BEEN VIOLATED 
ISN 0003 INTEGER PROG 

ISN 000* INTEGER*2 I VEH,LVS,NSTRST,LVARY,LVD, NLVP » LABE L f LNDATE 

ISN 0005 COMMON/ PLS A VE/TITLE ( 1 0 1 * FIXED (20 ) * LEVEL (20) * CNTRVLf 20) » 

1 PNAXtPNIN, ACCLtEXT » ISTRT * IF IN*MAXtTR,NCSTft 
ISN 0006 COMHON/SCRACH/TOTAL<2ftl'W{ZO)fNSL< 10) tN0P<77)tlVSF'66) *01201* 

1 XLVSUHI PO* 50) i XOUT (20) *V0UT(20) »RF 1 72 ) *CF (72) ,SF(72 1 *FLAGR 172) * 

2 FLAGS 172 ) i PROG* I ODD* KVEHH50) >RRR(20) * IMAGE 1830 1* YEAR 1 20)* 

3 Yl20)tNSSFt?2l»NSRF(72)iNSXF<72)*NDSF<72)fSUSTF<72),VNAH<66>* 

* NSC ALE 151 'RECUR 120 *50 ) »NSTRRCC72)»NYRSRC C72 ) »LN0FO2) *KVEH| 60)* 

5 IERR*SKIP,MYFLAG»NPR0190)|KPR0C90)»0UMSU*5> 

C THE FOLLOWING STORAGE IS USED IN MASTER AND SHOOTH 
ISN 0007 C0HH0N/SAVES/N,H*IVEHI66),LVSC66),SI72),NSTRST(72),R(721,LVARYC66) 

1 'LVD{66>* NLVP l 72) »XSCH( 10*66) * LABEL! 50 ) »NCS*CS (90)* 

2 NPROG C 90 ) ,KPROG< 90 1 « KOOE t 90 1 * LNDATE 1 72 ) 

ISM 0008 I ERR = 0 

ISN 0009 IF INCSTR.EQ.O) RETURN 

ISN OOU NP » PROG 

ISN 0012 DO 100 I»L,NCSTR 

ISN 0013 J - NPROGU) 

ISN 001* K - K PROMT) 

ISN 0015 IF (JjNE.NP.ANO.K.NE.NP) GO TO 100 

ISN 0017 HP" KOOE 1 1 ) 

ISN 0018 IF (MP.LT.l.OR.HP.GT.ll) GO TO 100 

ISN 0020 GO TO < 10»20»30,*Q,50,60,70t 110*90,91 ,921 , HP 

ISN 0021 10 DT = CSHl 

ISN 0022 IF (SfJ).LT. IS(K)CRIK) £ DT)) GO TO 110 

ISN 002* GO TO 100 

ISN 0025 20 OT - CSIl) 

ISN 0026 IF H S ( J ) SR ( J ) LOT I.GT.SIKH GO TO 110 

ISN 0028 GO TO 100 

ISN 0079 30 IflS(JI.NE.C51in GO TO 110 

ISN 0031 GO TO 100 

1$N 0032 *0 tFtlSlJ) S RIJ) - 1.0).NE.CSUn GOTO 110 

ISN 003* GO TO 100 

ISN 0035 50 IF (R< J) .NE.CS U ) ) GO TO 110 

ISN 0037 GO TO 100 

ISN 0038 60 DT * LNDATE (J ) 

ISN 0039 ET - LNDATE(K) 

ISN 00*0 IFI < S< J) COrtCSt I > ) *GT • ( S(K)£ET ) ) 

1 GO TO HO 


H-1'5 



ISN 

0062 


GO TO 100 


ISN 

0063 

70 

DT w LNDATEtJl - 1 


ISN 

0066 


IF USIJ) € DT1.GT.CSU>> 

50 TO 110 

ISN 

0066 


GO TO 100 


I5N 

0067 

90 

iFtSIJl.LT.CStU) GO TO 

110 

ISN 

0069 


GO TO 100 


ISN 

0050 

91 

DT « LNDATEtJl - 1 


ISN 

0051 


IF HStJ) 6 DT J , LT »CS ( I ) 1 

GO TO 110 

ISN 

0053 


GO TO 100 


ISN 

0056 

92 

OT * LNDATE(K) -1 


ISN 

0055 


IF US(JlCR(J}£CS(m.GT. 

(SIKU0T1) GO TO 110 

ISN 

0057 

100 

CONTINUE 


ISN 

0058 


RETURN 


ISN 

0059 

110 

I ERR * 1 


ISN 

0060 

120 

RETURN 


ISN 

0061 


END 



****** END of compilation ****** 


F08-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST tXREF tHAP tNCAL 
7 VARIABLE OPTIONS USEO - SI ZE-U 26976*26576) DEFAULT OPTION! SI USED 

I EH 00 00 NAME K0X02CRIR) 


CROSS'' REFERENCE TABLE 


CONTROL SECTION 


ENTRY 


NAME 

ORIGIN 

LENGTH 

CONSTR 

00 

BEC 

PL SAVE 

3F0 

138 

SCRACH 

528 

67A6 

SAVES 

6CD0 

1660 


NAME LOCATION NAME LOCATION 


NAME LOCATION 


NAME 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION 


LOCATION REFER5 TO SYMBOL IN CONTROL SECTION 


FO 

PL SAVE 

PLSAVE 

F6 

SCRACH 

SCRACH 

F8 

SCRACH 

SCRACH 

FC 

SCRACH 

SCRACH 

100 

SCRACH 

SCRACH 

106 

SAVES 

SAVES 

108 

SAVES 

SAVES 





ENTRY AOORESS 00 

TOTAL LENGTH 6330 

****HOXOZCR NOW REPLACED IN DATA SET 


LOCATION 


H-16 



DATE 70.104/16.35.17 


17 f * OS/360 FORTRAN H 


COMPILER OPTIONS - NAME* HAIN,0PT*Q2,L INECNT-44,SOURCEtBO>»NOLlST ,NOOECK,LOAD,NOMAP,NOEOIT, 10,N0XREF 
ISN 0002 Sim ROUTINE OECISN 


C 

C THIS SUBROUTINE SETS UP DS COSTS* CALCULATES AVAILABILITY OF EACH DECISION 
C COST* AND MATCHES THESE COSTS WITH EACH VEHICLE THEN- PRINTS THEM OUT 
C 


ISN 0003 
ISN 0004 

ISN 0005 
ISN 0006 

ISN 0007 


ISN 0000 


ISN 0009 


ISM 0010 


ISN 0011 
ISN 0012 
ISN non 

tSN 0014 


ISN 0016 
ISN 0017 
ISN 0018 
ISN 0019 
ISN 0020 
ISN 0021 


INTEGER FINISH 

INTEGERS LYR,IETT, MIN, IS,NONREC,NYO, LABS, LABF, LABI, HAT, VEH,LYQ, ' 
1 NYRSST 

C STORAGE USED IN OECISN AND ASSIGN 

COMHON/ASGN/ 1ST ( 40 ) ,UST 1 30) * KST 1 40 > * KOOEH ( 50 > * YDS 1 40 ) * YOF ( 30 1 * 
l YOU 40) 

COHMON/SAVEDC/KFLAG'NFAKfLSAt40>tSNR(40)»STS(40MlYS(40)»FHNR<30}» 
1 KDDEFI30) * FMSUSI30 ) *FAH(30) tOINT C40 ) *S INT (40) 

C THE FOLLOWING STORAGE IS USED IN ASSIGN AND MASTER 

C OMMON/S AVE A/NH , YRlM I 250 1 *LYR I 252 ) , LETT { 250 ) . H IN ( *50) » 

1 DS (50) rSUST 1 50) *YDI50) * IS( 106) * NUHD*N0NREC( 60,20) «NYD(50) * 

2 LABSI40>,LABF(30)tLAB 1(40)* ftXOl 12*501 ,HAT<501 

C THE FOLLOWING STORAGE IS USED IN MASTER AND SMOOTH ANO ASSIGN 

COHMnN/SAVER)/NMIS v VEKI4«601*FlNlSH*RC0ST(61)»STGi40)fNSPR, 

I 

C THE FULLUHING STORAGE IS USED IN ASSIGN AND CKGOZ 

COMKON/SAVECZ/RECURI 60*20,2 ) ,VNM(4« 250 ) ,LYD( 50) .NEXT, GUESS. 

1 LTRC50) 

C THE FOLLOWING STORAGE IS USEO IN STGNUM 

COMH0N/SAVESM/IFLAG,STGYTR(40t 20*2 ) *RINm(40*20) t NBY(40), NCI « 

1 * PICINT 140) » NFHL 140 )* NFS (40,4 ) *NFHU(40) * 

2 KOOE (40*3 ),SR(40*3)*PLC( 40*3 )*P0J(3), SRJ( 3*3) *R1NT(40) 

COMMON/ SAVENV/NV * HYRS 

COHM ON/S AVE SG/NSTG 

COMMON/ SCR ACH/HASt 40), IYP130 ) ,NYF 130) ,HAF (30) ,HAIC{40) ,DUM0(44151 
C 

IFtFINISH.GT.l) GO TO 2 
C ♦ 

C ***SET UP OS COSTS FOR BRANCH ANO BOUND PROCEDURE*** 

C CALCULATE AVAILABILITY OF EACH DECISION COST 
C 

NUHD * 0 

00 3 I - 1,NSTG 

LSA( I ) * MIND(LSAU) ,HYRS1 

KASCM-0 

X - LABStl) 

IF I SNR{ ] ) GSTS( 1 1 tX.LT • .01 1 GO TO 3 


ISN 0023 
ISN 0024 
ISN 0025 
ISN 0027 
ISN 0026 
ISN 0029 
ISN 0030 
ISN 0031 
ISN 0032 
ISN 0033 
ISN 0034 
ISN 0036 
ISN 0036 
ISN 0037 
ISN 0038 


ISN 0040 
ISN 0041 
ISN 0042 
ISN 0043 
ISN 0044 
ISH 0045 
ISN 0046 


ISH 0047 
ISN 0049 
ISN 0050 
ISN 0051 
ISN 0052 
ISN 0053 
ISN 0054 
ISN 0035 
ISN 0056 
ISN 0057 
ISN 0059 
ISN 00 60 
ISN 0061 
ISN 0063 
ISN 0064 
ISN 00 65 
ISN 0066 
ISN 0067 


NUHD - HU MO L 1 

OS INUHDUSNRU) 

!F(LABS (I).EO.O) GO TO 302 
L « LABStl) 

00 301 K * 1,12 

301 DSC NUHD) * DS(NUMO) £ RXDlKtL) 

302 SUST (NUHO)*STSCn 
HAT(NUPO) = I 
HAS(I) b NUMD 
NYD(NUMO) « NYSU1 
LYO(NUMO) * LSAII) 

YD (NUMD) - YDS! I) 

ISC NUMD G HMISGNSPR1 - IST(I) G 1900 
3 CONTINUE 

IF (NFAH.EO. 0) GO TO 601 
C CALCULATE FAMILY AVAILABILITY DATE 

C FIRST YR. FAMILY IS AVAIL* * 1ST YR. ANY STAGE IN THAT FAMILY IS AVAIL. 
DO 422 II = 1*NFAH 

1 « KOOE F (ID 
LYFM) * 0 

422 NYF(I) *= MYRS 

00 423 J = l,NSTG 

00 424 MS = 1*4 

1 * HFS(J,HS) 

IF(I.EQ.O) GO TO 423 
NYFII) « MINO (NYF( I ) *NYS( J ) ) 

LYF(I) = HAXO ( LYF ( I ) * LSA ( J ) ) 

424 CONTINUE 

423 CONTINUE 

00 6 II - IfNFAH 

1 m KODEF(Il) 

HAFm-0 

X * LABF(I) 

IF(FMNR ( I )£FHSUS( I ) £X.LT*.Ol ) GO TO 6 
NUMO « NUMD £ l 
DS i(NUMO) *> FMNRCI) 

IFILABF I I I.EQ.O) GO TO 304 

L * LAQFtn 
DO 303 K * 1,12 

303 OS (NUMD) * DS (NUHD I £ RXD(K,U 

304 SUST INUHD1*»FMSUS(I) 

HAT l NUMD 1 * -I 



ISN 0068 
ISN 0069 
ISN 0070 
ISN 007 L 
ISN 0072 
ISM 0073 
ISN 007* 
ISN 0076 
ISN 0077 
ISN 0078 
ISN 0079 
ISN 0081 
ISN 0082 
ISN 0083 
ISN 0085 
ISN 0086 
ISN 0087 
ISN 0088 
ISN 0089 
ISN 0090 

ISN 0091 
ISN 0092 
ISN 0093 
ISN 009* 
ISN 0095 
ISN 0096 
ISN 0097 


ISN 0098 
ISN 0099 
ISN 0100 
ISN 0101 
ISN 0102 
ISN 0103 
ISN 010* 
ISN 0106 
ISN 0108 
ISN 0109 
ISN 0110 


ISN 0112 

tSN Oil* 
ISN 011S 
TSN 0116 
ISN 0118 
ISN 0120 
ISN 0121 
ISN 0122 
ISM 012* 

ISN 0125 
ISN 0127 
ISN 0129 
ISN 0131 
ISN 0132 
ISN 0133 
ISN 013* 
ISN 0136 
ISN 0137 
ISN 0139 
ISN 01*0 
ISN 01*1 
ISN 01*2 
ISN 01** 
ISN 01*5 
I5N 01*6 
ISN 01*8 
ISN 01*9 
ISN 0150 


ISN 0151 
ISN 0153 
ISN 015* 
ISN 0155 
ISN 0156 
ISN 0158 
ISN 0160 

ISM 0161 
ISN 0162 


MAFin - NUMD 
NYDINUHDl * NYFII) 

LYD(NUHD) - LYFU1 
YDINUHD) = YDFU1 

IS (NUMD £ NHIS t NSPR) *» JST(I) £ 1900 
6 CONTINUE 

601 IF(NCI.EQ.O) GO TO * 

DO 160 I = I* NCI 
KAICUlaO 
X * LABI ID 

iF'DlNTtmslNTf mx.LT..Ol) CO TO 60 
NUMD = MJHD £ 1 
OS (NUHO) = OINTin 
IRLABH Il.EO.O) GO TO 306 
L - LABI II) 

DO 305 K x 1* 12 

305 OS (NUMD) * DSINUHD) £ RXD(K»U 

306 SUST { NUMD) =5INT ( I ) 

MAT(NUMD) «• -100 -I 
HAICtn ■ NUHO 

C FIRST YR« I NT* COST IS AVAIL* - 1ST YR. BOTH FANS* ARE AVAIL* 
JF - NFHUIJ ♦ 

KF - NFHUII) 

NYDINUHD) * HAX0(NYF(JF1»NYF(KFn 
LYD(NUHO) * HINO(LYF (OF ) , LYF (KF) ) 

YD (NUHO) » YOKI) 

IS (NUHO £ NHIS £ NSPR) * KST(I) £ 1900 
60 CONTINUE 
C * 

C ***H ATCH DECISION COSTS WITH EACH VEHICLE*** 

C 

* DO 66 I > l t NV 

JXv» l 

DO 64 J > 1,20 
6* NONREC(ItJ) - 0 
25 Da 65 MS* 1,* 

Rr, VEH(HSfl) 

IFIK.EQ.O) GO TO 66 
IF(HAS(K).EO. 0) GO TO 63 
NQNAEC (1, JX) * MASIK) 

JX * JX £ 1 
IFIJX.GT.20) GO TO 93 


IF(NFAH.EO.O) GO TO 21 
C *** PICK UP SHAREO COSTS *** 

63 00 885 KY"1 t A 
KX*NFS( K, KY) 

If (KX.EO.O 1 GO TO 885 
IF(HAF(KX).EQ«0) GO TO 885 
NONRECd* JX)cMAF(KX) 

JX-JXG1 

IF( JX.GT *20) GO TO 93 

885 CONTINUE 

C **« PICK UP INTEGRATION COSTS *** 

21 IF(NCI.EQ.O) GO TO 65 
lF(HS.EO.A) GO TO 65 
IF(VEH(HS£1,I)*E0,0> GO TO 65 
K1-VEH(HS£UI) 

00 89 J* J tNCI 
DO 887 KY-l,* 

IF(NFHLU).NE.NFS(X»KY)] GO TO 887 
OQ 686 K2-1,* 

IFf NFHU( J) • EOvNFSIKl ,K2) I GO TO 888 

886 CONTINUE 

887 CONTINUE 
GO TO 89 

888 IF(HAIC(J)*EQ*0) GO TO 89 
NONRECd, JX) - HAICtJJ 

JX - JX £ 1 
JF1JX.GT.20) GO TO 93 
89 CONTINUE 

65 CONTINUE 

66 CONTINUE 
C 

C ***PRINT OUT DECISION COST CATEGORIES*** 

2 IF(NUHD*EQ.0) RETURN 
WRITE (6,211) 

DO 925 I * l, NUMD 
J-HAT(l) 

IF( J.LT.-100) GO TO 3*5 
I-F(J.LT.O) CO TO 3*0 

WRITE (6,208) I , DS (I ) ,SUST( I) , STG( J I ,NYD 1 1 ) ,LYOI I) , ISUGNHISE 
1 NSPR), YO (II 
GO TO 925 
3*0 JX*-J 


H-18 



ISN 0163 


WRITE 1 6* 209) I, DSI11, SUSTIIlt FAHIJX) *NY0M) *LYO 1 1 MSI I ENHISC 
1 NSPRJ, YD( I ) 

ISN 0164 GO TO 925 

ISN 0165 345 JX— J-100 

ISN 0166 JY-NFHLIJX) 

ISN 0167 JZ-NFHIMJXI 

ISN 0168 WRITE<6,210) I, DSU)* SUSTIU* FAH( JY) ,FAH( JZ) ,NYD( I ) * LYD( 1 I * 

1 IS1UNHISCNSPRI t YOU) 

ISN 0169 925 CONTINUE 

ISN 0170 RETURN 

ISN 0171 93 WRITE I 6*220) I 

ISN 0172 KFLAG ■ 1 

ISN 0173 99 RETURN 

ISN 0174 208 FORMAT ( I4*6X*2F12.2* 5X*A4, 1X»5HSTAGE.26X , I3*9X* I3» 8X, 15, 7X* F5 ,0) 

ISN 0175 209 FORMAT (14* 6X* ZP12.2*5X* A4* IX, 6HSHARE0* 25Xt I3*9X*I3*8X* IS *7X* F5*0> 

ISN 0176 210 F0RMATU4*6Xt2Fl2,2 f 5Xti5H INTEGRATION OF ,A4»5H AND ,A4, 8X, I3,9X* 

1 1 3*6X* 15 *7X*F5»0) 

ISN 0177 211 FORHAT (25H1QUANTIT IES BRANCHED UP0N/1K0* UX*1 1KDEVEL0PHENT* 2X* 

1 10HSUSTAININ5t38X»10HYEAR AVAIL* 2X * 9HLAST YEAR *2X » 9HDEV START* 

2 2X*12HDEV DURATION//) 

ISN 0178 220 FORHAT (45HOEXCEEDEO 20 NON-RECURRING COSTS FOR VEHICLE* 14) 

ISN 0179 END 

****** ENO OF COMPILATION *•***♦ 


F88-LEVEL "LINKAGE EDITOR OPTIONS SPECIFIED LIST* XREF *HAP *NCAL 
i VARIABLE OPTIONS USED - SIZE-11 26976*24576) DEFAULT OPTION IS) USED 

IEHOOOO NAME H0XO20CIR) 

IEW0461 IDCOH- 


CRDSS REFERENCE TABLE 


CONTROL SECTION ENTRY 

NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATK^j 

0 EC ISN 00 ED8 

ASGN EOB 438 

SAVE DC 1310 5A8 

SAVEA 1886 2160 

SAVE81 3A1 8 410 

SAVECZ 3E28 3654 

SAVESH 7480 30F8 

SAVENV A578 8 

SAVESG A590 4 

SCRACH A5B6 47A4 


LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCAT ION 

REFER5 TO SYMBOL 

IN CONTROL SECTION 

248 

ASGN 

ASGN 

24C 

SAVE DC 

SAVEOC 

250 

SAVEA 

SAVEA 

254 

SAVEA 

SAVEA 

258 

SAVES 1 

SAVE61 

25C 

SAVECZ 

SAVECZ 

260 

SAVECZ 

SAVECZ 

264 

SAVECZ 

SAVECZ 

268 

SAVESH 

SAVESH 

26 C 

SAVESH 

SAVESH 

270 

SAVESM 

SAVESH 

274 

SAVENV 

SAVENV 

278 

SAVESG 

SAVESG 

27C 

SCRACH 

SCRACH 

280 

18C0H* 

4UNRESGLVE0 




ENTRY ADDRESS 

00 





TOTAL LENGTH 

ED30 






i****MOX02DC NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


H-19' 



OS/3 «~FOSrtit*N' H 


DATE TO.IOWI&.AB.IU 


frl?! 

COMPILER OPTIONS - NAME* MAIN, QPT-02 . LlNECNT-44, SOURCE ,BCO, MOL I ST ,NODECK, LOAOtNOHAP, NOEDIT » IO,NOXREF 


ISN 

0002 

C 

C- 

k SUBROUTINE LBOUND 

THIS SUBROUTINE CALCULATES THE RECURRING AND NON-RECURRING LOWER 
BOUND WITH A PENALTY FUNCTION INCLUDED IF W NE 1.E30 

ISN 

0003 


INTEGER*? NSAVE ,LYR, LETT, MIN, IS rNONRECjNYfi* LABS, LABF, LABI « HAT » 

1 LYO.KEEP 

ISN 

0004 


' COHM0N/SAVEA/NH f YRLH(25O)»LYR<252) t LETT (250 V,H1N(250>, 

1 0SI50) ,SUSTl50) ,YD(50) ,IS(l06), NUMD,NONRECt 60,20) ,NYO< 501 • 

2 LABS(4O)*LABF(30)tLABU4O>f RXDI I2t 50) ,HAT(50> 

ISN 

0005 


COMMON/-SAVECZ /RECUR C 60, 20»2 > , VNHt4,230| ,LY0I30) , NEXT, GUESS* 
l LTM501 

ISN 

0006 


C0HH0N/SAVEL6/KX »KI » NX,K, KZ ,NC0ST,HZ(60l 

ISN 

0007 


CQMMON/SAVELZ/LZC 60 1 

ISN 

0008 


COMMON/ SAVENV/NV, HYRS 

ISM 

0009 


COHKDN/SCRACH/NODE (4, 500 ) > WR<50>, CQST(2,250), 

1 H2t 500), 2(500), W 1500), NSAVE( 10) tTDS( 500) .KEEP (50>,0UH 15) 

ISM 

0010 

c 

If7k. E0« 50 > GO TO 54 

***F [NO NEW RECURRING LOWER BOUND*** 

ISM 

0012 


49 WCKX)*0. 

ISN 

0013 


W2(KX ) - 0.0 

ISN 

0014 


DO 50 J-lfNH 

ISN 

0015 


IFIYRLH(JI.EO.O.O) GO TO 50 

ISN 

0017 


CALL UNPACK! HZ, VNHd*JlfNV| I) 

ISN 

0016 


COST ( 1 , J 1 - 1.0E30 

ISN 

0019 


COST { ?« J 1 ■ 1.0E30 

ISN 

0020 


KO * LYRIJI 

ISN 

0021 


JX = LETT ( J> 

ISM 

0022 


ITR ■ LTRCJX1 

ISM 

0023 


DO 48 I ■ 1 » NV 

ISM 

0024 


iFlHZm.EO.O) GO TO 48 

ISN 

0026 


DO 47 H-1,20 

ISN 

0027 


iFUJOfJRECtl ,M).EO.O) GO TO 475 

ISN 

0029 


. NO - NQNRECt I ,H> 

ISN 

0030 


IFIK1*LZ(N01.LT. KO > GO TO 48 

ISN 

0032 


47 CONTINUE 

ISN 

0033 


475 CX-YRLHIJI*RECUft(l.KO,ITR> 

ISN 

0034 


I F ( CX .GE. COST ( 2 , J ) ) GO TO 48 

tSN 

0036 


iFfCX LT.COSTdtJM GO TO 43 

ISN 

0038 


COST! 2, J ) - CX 

ISN 

0039 


GO TO 48 

ISN 

0040 


43 COST! 2, J) - COST { 1 , J ) 


ISM 0041 
ISN 0042 
ISN 00 A3 
ISM 0044 
ISM 00 AS 
ISM 0046 
ISN 004? 
ISN 0049 
ISN 0050 
(SN 0052 
ISN 0053 
ISN 0054 
ISN 0056 
ISN 0057 
ISN 0059 


ISN 0061 
ISN 0062 
ISN 0063 
ISN 0065 
ISN 0066 
ISN 0067 
ISN 0068 
ISN 0069 
ISN 0070 
ISN 0072 
ISN 0073 
ISN 0074 
ISN 0076 
ISN 0078 
ISN 0079 
ISN 0080 
ISN 0081 
ISN 0082 
ISN 0083 
ISN 0085 
ISN 0086 
ISN 0086 
ISN 0089 
ISN,. 0090 


COSTlltJ) •* CX 
HINIJJ - I 
48 CONTINUE 

W (Kx 1«W 1KX J (COST C 1 » J > 

W2<KX> - U21KXI 6 COST <2 1 J ) 

50 CONTINUE 

IF(KX.EO.NX) GO TO 510 
KZ * KmzCNCOST) 

IFIWIKX>.LT.1.0E20> GO TO 508 
TOO - 0,0 
i GO 10 38 

508 IFIKZ.EQ.O) GO TO 510 
KY * NSAVEIK-1) 

512 IF (W (KX ) «GT .H (XY)-.OOOl kAND.W2(KX) .GT «H2 (KY)-.OOOl ) GO TO 38 
, JF{H|KX).GT.W(KY)-.0001»ANO.H2<KX).GT.1.0E?5.AND.W2IKYJ-XZtKX).LT. 
1 I.0F751 GO TO 38 

C 

C CALCULATE LOWER BOUND USING PENALTY FUNCTION BASED ON VEHICLES 
510 DO 350 NIC - liNUHD 
KEEP (NIC) ■ 1 

IFflZ(NIC)*LT«15) XEEPtNICI - 0 
350 CONTINUE 
355 TGO - 0.0 
IV - 0 
TG * 0.0 

354 DO 351 IX = l,NV 

IFdX.EO.IV> GO TO 351 
* VGO * 0.0 
330 DO 90 J - l t NH 

IF (YRLM{ J ) .EQ.O.OI GO TO 90 
IF(HINIJ).EO.IX) GO TO 91 

90 CONTINUE 
GO TO 351 

91 PF » 0.0 
KTV » 0 

00 341 H = 1 ,20 

1FIN0NRECI IX,H).EO.O> GO TO 3415 
NO - NONRECIIX.H) 

IFIXEEP(NO).EO.O) GO TO 341 

VGO « VGO CDS( NO 1 C FLOAT (K I ) * SUST I NO ) 

KTV • 1 
341 CONTINUE 
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ISN 

0091 

3415 

lFlKTV.ro. 01 GO TO 351 

ISN 

0093 


DO 33 I J- 1 ,NK 

ISN 

0094 


IF(YRLH(J).EO.O.O> GO TO 331 

ISN 

009 6 


IFtMIN(Jl.NE.IX) GO TO 331 

ISN 

0098 


PF - PF 6 COSTC 2 » J ) - CQSTUtJ) 

ISN 

0099 

331 

CONTINUE 

ISN 

0100 


VGO * AMIN1 (VGOtPF 1 

ISN 

0101 


IFIVG0.LT.TG> GO TO 351 

ISN 

0103 


IV = IX 

ISN 

0104 


TG = AHAXHTGtVGO) 

ISN 

0105 

351 

CONTINUE 

ISN 

0106 


IF{TG.LT.GUESS*.0I) GO TO 37 

ISN 

0109 


TGO * TG £ TGO 1 

ISN 

0109 


TG * 0.0 

ISN 

0110 


DO 352 M - 1,20 

ISN 

om 


I F (NQNRECt I V, H) *EQ 0) GO TO 354 

ISM 

0U3 


NO * NONRECI IV, M) 

ISN 

0114 


KEEP ( NO ) * 0 

ISN 

0115 

352 

CONTINUE 

ISN 

0116 

37 

TGO - TGO C TG 

ISN 

0117 

39 

IF fKZ.EQ.O) TOSIKX) * TDSINX) 

ISN 

0119 


IFCKZ.GT.O.AND.KX NE.NX) TOS <KX1 * TDSINXI 
1 G 05 INCOST) C FLOAT (IK-n*K!-NYO( NCOS!) Cl 1*SUST (NCOS!) 

15N 

0121 

54 

IF(KX.EQ.NX) 

1TDS(NX) * TOSINX) C 

2 DSINCOST) £ FLOAT { LYOINCOST 1-NYD INCOST U1 >*SU$T fNCQST) 

ISN 

0123 


DHIN * TGO C TDS(KX) 

ISN 

0124 

507 

ZtKX) * OHIN C VHKX1 

ISN 

0125 


RETURN 

ISN 

0126 


END 


END OP COMPILATION ****** 


FBR.-I FVFI. LINKAGE EDITOR OPTIONS SPECIFIED LIST,XREF7fiAP r NCAl 
} VARIABLE OPTIONS USED - SIZE* l 126976 » 245761 DEFAULT OPTION! SI USED 

1EUOOOO NAME M0X02LDIR1 

1EH046I UNPACK 


CROSS REFERENCE TABLE 


'’CONTROL SECTION ENTRY 

NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME 

LBOUND 00 952 

SAVEA 958 2160 

SAVECZ 2AB8 3654 

SAVELB 6110 106 

SAVELZ 6218 FO 

SAVENV 6308 8 

SCRACH 6310 47A4 


LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

130 

SAVEA 

SAVEA 

134 

SAVEA 

SAVEA 

138 

SAVECZ 

SAVECZ 

13C 

SAVECZ 

SAVECZ 

140 

SAVECZ 

SAVECZ 

144 

SAVELB 

SAVELB 

148 

SAVELZ 

SAVELZ 

14C 

SAVENV 

SAVENV 

150 

SCRACH 

SCRACH 

154 

SCRACH 

SCRACH 

158 

SCRACH 

SCRACH 

15C 

SCRACH 

SCRACH 

160 

UNPACK 

SUNRE50LVED 

74 

SAVELB 

SAVELB 

7C 

SAVENV 

SAVENV 




ENTRY ADDRESS 

00 





TOTAL LENGTH 

AAB8 





****KDX02LD NOW 

REPLACED IN 

DATA SET 





DIAGNOSTIC MESSAGE DIRECTORY 


IEW0461 WARNING - SYMBOL PRINTED IS AN UNRS SOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 


location 


H-21 



FORTRAN IV G LEVEL 1, MOO A 


MAIN 


DATE - 70104 


16M8/39 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 


001 A 


C MASTER PROGRAM FOR BUDGET SMOOTHING AND VEHICLE ASSIGNMENT INTEGRATION 
C 

C A PROGRAM EITHER EQUALS A MISSION WITH LAUNCH SCHEDULE Oft A 
C DEVELOPMENT OR SUSTAINING PROGRAM OR A HISC. PROGRAM 
C A MISSION MUST HAVE AT LEAST ONE AND NO MORE THAN 10 LAUNCH YEARS 
C 

DOUBLE PRECISION NAME 
INTEGER YDPLt FINISH 

1N1EGER*2 I VEH« LVS »NSTR$T , LVARY,LV0,NYRS9T »NLVP , LABEL, LNOATE * 

1 LYR* LETT, M IN, IS,N0NREC,NYD,LA8S*LABF, LARI, HAT, VEH.LYO 
C THE FOLLOWING STORAGE IS USED IN MASTER AND SMOOTH 

COKMON/SAVES/N,H,IVEH(66] ,LVS(66) , SI 721 ,HSTRST<72) »RI 72 J ,LVARY I66» 

1 ,LVD{66), NLVPC72) tXSCHI 10, 66), LABEL (50) ,NCS ,CS(90| , 

2 NPROGC90),KPROGI90I ,KOOE ( 90) , LNDATEI 72 1 

C THE FOLLOWING STORAGE IS USED IN ASSIGN AND MASTER 

COMMON/S a VEA/NH,YRLM( 250) ,LYR(252) , LETT |?50) ,M|NI250) , 

1 DS( 50) tSUST 150 ) ,YD(50) , I S ( 106 ) , NUMB, NONREC ( 60,20) ,NYO 150) , 

2 LABS I AO > , LABFOO) ,LABI (60) , RXO< 12 *50) ,HAT(50} 

COMMON/ SAVEA1/YDPL 156) * 1BY*NSFX (50) *NRFX150) ,NSYRI 501 

C THE FOLLOWING STORAGE IS USED IN MASTER AND SMOOTH AND ASSIGN 
COMMON/ SAVEB/NAHE 156), HITR, ALPHA, 60) ,C( 72) *SUS( 72) , 

1 PLRI50) ,RDIST 1 5 6, A) ,RFI XD 112*72) ,NSTRFXC72 ) ,NYRSFXC72 1 ,TREF 
COMHON/SAVEBI/NHIS,VEH (A,60) ,F INI SHrRC0SH61 ) ,STGt AD ) ,NSPR* 

1 NYRSSTI72) 

C STORAGE FOR SHOOTH ONLY THAT MUST BE SAVED 

COHHON/PLSAVS/TlTLEt 101 *F (XEDt 201 * LEVEL (?0) » CNTRVL 1 20) * 

1 PHAX*PMIN,ACCL*EXT , 1STRT , ]F ]N,HAXITR«NCSTR 
C THE FOLLOWING STORAGE IS USED IN ASSIGN AND CHOQZ 

CONHON/SAVECZ/RECURI 60,20,2) ,VNH (4*250) ,LY0 (50) ,NEXT*GUESS, 

1 LTRC50) 

C STORAGE USED IN DECISN AND ASSIGN 

COMMON/ASGN/ 1 ST ( AO ) , J ST (30 ) , KST ( AO ) » KODEH ( 50 ) , YDS { AO ) , YDF ( 30 ) , 

I YD I (AO ) 

CDMMON/SAVEDC/KFLAG,NFAM,LSA(AO),SNR(AO)*ST5(AO),NYSIAO),FMNR(30), 
1 XODEF (30) ,FM$US< 30) ,FAH(30) ,DINT(AO) ,SINTIAO ) 

C THE FOLLOWING STORAGE IS USED IN STGNUh 

COMMON/SAVESK/IFLAG, STGYTR(AO,20,2) tRINTYR (A0,20) ,N8Y(A0) ,NC1 * 

1 PLCINT(AO), NFML l AO),NFS( AO, A) ,NFMU(AO) , 

2 MODE (A0,3 ) , SR (AO, 3) ,PLC (AO, 3) , POJ( 3) , SRJ( 3,3 ) ,RINT(AO) 

C THE FOLLOWING STORAGE IS USED IN CAPA8L ANO ASSIGN 

CDKMQN/SAVECL/NOPT,IV,KNV,lG, PLMD (50) ,KOOEVI 60) ,KOOS( AD) , 

2 1 VEKA ( 50) ,VLR( 50) ,WPR (50 ) , VM(2,60) , NPLS(SO) ,HR(50) ,NRR(50) 

C STORACE USED )N CAPABL ONLY BUT SAVED FOR BATCHING 


FORTRAN IV G LEVEL 1, HDD A MAIN DATE ■ 70J0A 16/AB/39 


0015 


COMMON/ SAVED/ B1 ( 601 , B2 (60) ,83 (60) ,84(60) ,NVSt 60) ,MRV(60 ) ,NRP(60) 

0016 


COMHON/SAVELZ/LZt 60) 

0017 


COMMON/S AVENV/NVtMYRS 

001 B 


COMMON/ BATCH/KNSTGtKNFAM* KNC1 ,KNH1£*KNSP,K0D£SP(6) 

0019 


COMHON/SAVESG/NSTG 

0020 


COMMON/ SCR ACH/DUH1 (4260 ) *NPRQ(90) «KPR0I90) *CSX(90) , LABN(50),0UH(5} 


C THE FOLLOWING STORAGE IS FOR MASTER USE ONLY 

0021 


DIMENSION PL0I72 ) ,PLS(72) , PRGLV(A) 

0022 


EQUIVALENCE ISUS(l) ,PLS(1) ) , (CU)*PLD(1>) 

0023 


DATA BLANK /1H / 

002A 


DATA PRGLV / 1 6HPRQGRAM LEVEL / 

0025 


DATA ASTR /1H */ 

0026 


DATA ZERO /1H0/ 

0027 


RCOST 1 61) » BLANK 

0028 


LYRI252) * 0 

002V 

V 

FINISH «* 1 

0030 


JFLAG = 0 

0031 

10 

CALL ASSIGN 

0032 


IF(HYRS.EQ.O) GO TO 99 

0033 


IF (HYRS.EO. 100 ] GO TO 9 

003A 


IF(FINtSH.GT.l) GO TO 12 

0035 


NNM - NM1S + 1 

0036 


DO 11 I « NNM,72 

0037 

11 

PLR(I) * 0,0 

0036 


NNM - NNH + NSPR 

0039 


TREF » 1900. 0 + TREF 

OOAO 


CALL CLEAR (Rin,R(72)> 

OOAl 

12 

00 13 I - 1,66 

OOA2 


LVARYM) - 0 

OOA3 


LVOU) ® 0 

OOAA 


DO 131 J • 1,10 

OOA5 

131 

xsch(j,i) » o.o 

00A6 

13 

CONTINUE 

OOA7 


DO 132 t - 1,72 

OOA8 

132 

NLVP(I) - 0 

OOA9 


DO 133 t » 1,50 

0050 

133 

LABEL (I) * 0 

0051 


DO 13A I = l.NMIS 

0052 

134 

NYRSSTII) *» 0 

0053 


DO 14 I - 1, NUMD 

005A 

1A 

LABN(I) * 0 


C 

C CALCULATE VARIABLES FOR SMOOTH FROM MISSION DATA 
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(.FORTRAN fVG LEVEL 1* HOD A 


MAIN 


MTE « 70104 


16/46/39 


0055 

€056 

0057 

0058 

0059 
00 60 
0061 
CO 62 

0063 

0064 

0065 

0066 
0067 
0066 

0069 

0070 

0071 

0072 

0073 
00 74 

0075 

0076 

0077 
0070 

0079 

0080 
0031 
0082 
0083 

0004 

0005 

0006 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 


H = 1 

DO 120 K = 1,NH 

IF I HIN IK) .EQ.O) GO TO 120 

I « LYRIK) 

J = LETT I K > 

IF(J.EQ.LETTIK-1>) CO TO 105 
IF f FINISH. GT . 1 ) GO TO 104 
SIJ) = 1S(J) 

R(JI « YDPUJ) 

104 LVARYIJ) = W 

NSTRSTUJ = INTf 2«0*R( Jl/3.0 4 .999) 

IF(RtJ).EO.O) N$TRSTIJ)-1 
GO TO 108 

105 LI “ LVARYIJ) 

HO * K-l 

DO 106 L - Ll »H0 

IFIMIN(K) .HE.lVEHlL) ) GO TO 106 

HI * L 

GO TO no 

106 CONTINUE 

108 IVEH(H) * HIN(K) 

LVSIH) * I - IS! J) 4 1900 + I8Y 
NLVPU) - NLVPfJJ ♦ 1 
HI a H 
M * K + 1 

110 M3 = ISIJ) 

IFISUSt J1.LE..001) GO TO 111 
NX = NYRSSTIJ) 

H4 = NSTRSTIJ) 

H5 » NSYRIJ) 

NYRSSTIJ) - MAXOlHX, I - H4 - K3 + 1900 + IOY + MSI 

111 H2 - LVSIM1) 

XSCHCI - M2 ** M3 + 1900 + 1BY 4- l t Ml) « YRLHIK) 

NX » LVO(Hl) 

LVD(Kl) a HAX01NX»1-H2-H3+I9a0+IBY+1 ) 

120 CONTINUE 
H • H - 1 
NC5 » 0 
N a NM15 

1FIN5PR.EQ.0) GO TO 170 
DO 150 I • ltNSPR 

N * N 4 I 


FORTRAN IV~G LEVEL It HOO 4 MAIN DATE « 70104 16/48/39 PAGE 0004 


0097 


IFtFtNlSH.CT.il GO TO 140 


0098 


stN) - i s cm 


0099 


R(N) a YDPLCN) 


0100 


140 NSTRSTIN] - INT I2.0*R IN >/3.0 4 .999) 


0101 


IFIR(N).EO.O) NSTRSTIN) « 1 


0102 


150 CONTINUE 



C 

CONTINUE TO CALCULATE VARIABLES FOR SHOOTH USING DEV. AND SUST. COSTS 

0103 

C 

170 1FINUHD.E0.0) GO TO 260 


0104 


DD 210 I a 1>NUHD 


0105 


IF(LZm.EQ.O) 00 TO 210 


0106 


N a N 4 1 


0107 


LABEL! N-NH1S-NSPR) * I 


0100 


LA0NI I J * H 


0109 


CIN) > DS(I) 


0110 


L a HAT(l) 


om 


NYR5FXIN) > 0 


0112 


IFIL.LT.-100) J » LABH-L-100) 


0113 


tF(L.LT.O.AND.L.OE.-lOO) J = LABF(-L) 


0114 


IF1L.GT.0) J - LARS(L) 


0115 


IFI J.EQ.O) GO TO 206 


0116 


DO 205 K a 1*12 


0117 


RFJXD(K,NJ a RXD(<» J) 


0118 


205 CIN) ■ CCN1 - RXD(K t J) 


0119 


NYRSFXINI = NSFXIJ) 


0120 


NSTRFXIN) » HRFXIJ) 


0121 


206 SIN) a 15(1 4 NHIS 4 NSPR) 


0122 


R(N) - YOU) 


0123 


SUSIN) - SUSTII) 


0124 


N5TRSTIN) - INT!2.0*R!N)/3.0 4 .999) 


0125 


IF(RtN)-EO.O) NSTRST|N>=1 


0126 


NYRSSTIN) • LZI 1) - NYD(I) 4 INTtYD(l)) - 

NSTRSTIN) 4 1 

0127 


IF(SUS(N}»LT.« 000 1 ) NYRSSTIN) « 0 x 


0126 


210 CONTINUE 



C 

CALCULATE DEVELOPHENT CONSTRAINTS ON MISSION 

programs 

0129 


DD 250 K ■ 1,«H 


0130 


IFIMIN(K).EQ.O) GO TO 250 


0131 


J a LETTIKI 


0132 


IF IHLVRI J) *E0. 1. AND* J.EO. LETT IK“1 ) ) GO TO 250 

0133 


IV - MINI*] 


0134 


DO 211 I a 1,10 
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FORTRAN IV'G LEVEL 1, MOO A 


MAIN 


DATE * 70 10 A 


16/48/39 


PAGE pQQ5 


0135 

0136 

0137 
0133 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 
0143 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 
0153 


0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 
0167 
0163 

0169 

0170 

0171 

0172 

0173 


FORTRAN Iv 

0174 

0175 

0176 

0177 
0173 
0179 
0130 
0181 
0182 
0133 

0184 

0185 

0186 
0187 
0183 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 
0193 

0199 

0200 


IF I J. HE* LETT (K— 1 ) ) GO TO 215 
IF !IV.E0.KIN!X-tl) GOTO 250 
211 CONTINUE 

215 X = LVRCK) - LYRCK-I+ll 

00 220 XI * 1*20 

IF INDNREC! IV*KL)*EQ.O) GO TO 250 
NO - NDNREC t IV *K1 > 

Jl - LABN(NO) » 

1F(CI Jl ) .IT..0001) GO TO 220 
NCS = NCS + 1 
NPROCNCS) = Jl 
KPRO <NCS> = J 
CSX (NCS) = -1.0 -X 
IF (NCS. G£. 90) GO TO 255 
220 CONTINUE 
250 CONTINUE 
GO TO 260 
255 WRITE 1 6» 1002) 

1002 FORMAT <52HQNUMBER OF DEVELOPMENT CONSTRAINTS HAS BEEN EXCEEDED) 
C 

260 CALL SHflnTH!PRGLV*ASTR, BLANK, ZERO) 

IF (NCSTft*r,T.90> GO TO 9 

1 F (FIHISH.EO.MITR + 1. AND.JFLAG.EQ.il GO TO 401 
IFfFlNISH.tO.HITR +1) GO TO 402 
IFtFINlSH.EO.HITR) JFLAG - ! 

C 

C CALCULATE VARIABLES FOR ASSIGN FROM SMOOTH VARIABLES 
C 

HXR5 * HYRS 
DO 300 K « l.NH 

1 « LYRCXJ 
J - LETTIK) 

IFIJ.EQ LETT ( K-l ) 1 GD TO 305 
tSIJ) - SI J J 

IX - IStJ) ♦ LNDATE(J) - 1900 - I8Y 
10 IFF « IX - I 

305 IF 1I0IFF.EQ.0) GO TO 300 
MYRS • MAX01KYRS* ID IFF + I) 

LYRCK) - I ♦ IOIFF 
300 CONTINUE 

IF (N* EQ.NMIS + NSPR) GO TO 10 
DO 350 I = NNH t N 
J * LABEL! I-NMIS-NSPR) 


G LEVEL 1* MOD 4 MAIN DATE » 70104 16/48/39 PAGE 0006 

dsi j) * cm 

L =■ HATrJ) 

IFIL.LT.-100) Jl - LAflII-L-100) 

IF ( L« LT* 0. ANO.L.GE.-l 00) Jl - LARF(-L) 

IFtL.rr.O) Jl - LABS! L ) 

IF! Jl. EO.O ) GD TO 320 
DO 310 X ■= 1,12 
310 DS( J) - OS ( J > + RFlXD<K,n 
NRFXIJ1) - NSTRFX! I ) 

320 SUSTtJ) * SUSm 
Y0!J) - RID 

NYDtJ) * I NT f S ! I ) + R f I > 1 - 1900 - I BY 
IFIMVOI JKLE.Ol NVD(J) - 1 
ISIJ + NMIS + NSPR) a SCI) 

350 CONTINUE 

DO 349 I > l t NUMD 
IFiLYOil I.EO.HXRS) LYDU1 * MYRS 
349 CONTINUE 
GO TO 10 

401 WRITE! 6*5001 
GO TO 9 

402 WRITE! 6*501 ) 

GO TO 9 

500 FORMAT (28H0NUHBER OF ITERATIONS « WITR) 

501 FORMAT C 65H00PT IHUH ASSIGNMENT WITHIN BUDGET CONSTRAINTS HAS BEEN 
I OETERHINED) 

99 STOP 
END 
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FORTRAN IV* G LEVEL It HOD A 


HA IN 


DATE - 70104 


16/48/39 


PAGE 0007 


TOTAL MEMORY REQUIREMENTS 001528 BYTES 


FBB-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LTSTtNCAltMAP 

VARIABLE OPTIONS USED - SI ZE-t 126976 f 245761 OE FAULT OPTIONtS) USED 

1 EWOOOO NAME HGX02MSIR1 

IEH0461 ASSIGN 
1EH0461 CLEAR 
IEM0461 IBCOMs 
IEN04&1 SMOOTH 
IEU0461 HAXO 


MODULE MAP 


CONTROL SECTION 


ENTRY 


NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAHE LOCATION NAHIj 

MAIN 00 1528 
SAVES 1528 1660 
SAVEA 2B88 2160 
SAVEA1 4CE0 33C 
SAVES 5028 1BD0 
SAVEB1 6BF0 410 
PLSAVE 700B 138 
SAVECZ 7140 3654 
ASGN A798 438 
SAVEDC ABOO SAB 
SAVESH 8178 30F8 
SAVECL E270 BF8 
SAVEO EB68 690 
SAVELZ F1F8 FO 
SAVENV F2EB 8 
BATCH F2F0 2C 
SAVESG F320 4 
SCRACH F328 47A4 


ENTRY ADDRESS 00 

TOTAL LENGTH 13A00 


****H0X02HS 


NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE OIRECTORY 


LOCATION 
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EXTERNAL SYMBOL DICTIONARY 


-SYMBOL TYPE ID AOOR LENGTH LD 10 


PACK SD 01 OOOOOO OOOOE8 

UNPACK LO 000052 01 

ITEM LO 000096 01 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT 


F01FEJ369 


1 * SUBROUTINE PACK Li H. I. N ) 


2 * 

3 * 

4 * 

5 * 

6 * 
7 * 
a * 


OOOOOO 


9 PACK 

CSECT 

OOOOOO 


10 

USING 

OOOOOO 9027 001C 

0001C 

11 

STM 

000004 9825 1000 

00000 

12 

LM 

000008 5844 0000 

00000 

13 

L 

OOOOOC 5875 0000 

OODOO 

14 

L 

000010 4270 F029 

00029 

15 

STC 

000014 1367 


16 

LCR 

000016 0670 


17 

8CTR 

00001B 1BU 


18 

SR 

00001A 4150 0020 

00020 

19 WORD 

LA 

0000 IE 5013 0000 

00000 

20 

ST 

000022 5B02 0000 

00000 

21 LOOP 

L 

000026 8C00 OOOO 

00000 

22 SHIFT 

SRDL 

00002A 1BQ0 


23 

SR 

00002C 8000 5000 

00000 

24 

SLOL 

000030 5603 0000 

00000 

25 

0 

000034 5003 0000 

00000 

26 

ST 

00003B 4122 0004 

00004 

27 

LA 

0000 3C 4640 F046 

00046 

28 

BCT 

000043 9827 DOlC 

oooic 

29 

LM 

000044 07F6 


30 

BR 

000046 86$6 F022 

00022 

31 NEXT 

BXH 

00004A 4133 0004 

00004 

32 

LA 

00004E 47F0 F01A 

OQOIA 

33 

B 


THIS ROUTINE PACKS I WORDS IN THE L* ARRAY TO THE 
ARRAY H. DATA ITEMS L ARE TRUNCATED ON THE LEFT 
AND ONLY THE N LOW ORDER BITS ARE RETAINED. 

PACKED DATA IN H IS LEFT JUSTIFIED WITH 32/N ITEMS 
PER WORD. 


*,15 USE REG 15 FOR BASE 

2,7,28(13) SAVE REGS 

2,5,0(11 LOAO ADDRESSES OF ARGUMENTS 

4,0(41 I TO REG 4 - NO. OF ITEMS TO BE PACKED 

7,0(51 N TO REG 7 - NO. OF BITS/ITEN 

7,SHIFT+3 MODIFY SHIFT INST WITH NO. OF BITS 
6,7 NO. OF BITS SHIFT FOR DECREMENT 

7.0 N-i FOR COMPARAND 

1.1 ZERO REG 1 

5,32 LOAD A 32 TO REG 5 FOR COUNT 

1,013) ZERO STORAGE AREA 

0,0(2) LOAD DATA TO REG 0 

0,0 SHIFT DATA TO REG 1 

0,0 TRUNCATE ON LEFT FOR HOD 2**N 

0,0(5) SHIFT BACK TO PROPER POSITION 

0,0(3) OR PACKED WORD TO REG O 

0,0(3) STORE BACK TO PACKED AREA 

2,4(2) INCREMENT DATA ADDRESS 

4,N^XT COUNT DOWN ON NO. OF ITEMS 

2,7,28(13) RESTORE REGS 
14 RETURN 

5,6, LOOP BRANCH BACK IF SPACE LEFT 

3,4(3) OTHERWISE INCREMENT STORAGE ADDRESS 

WORD- AND CONTINUE 


4/14/70 
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LOC' '0 B'j EC T~C 0 DE 


AD0R1 A DDR 2 STMT SOURCE STATEMENT 


F01FE869 A/14/70 






35 


SUBROUTINE 'UNPACK 1 

[ L, M, 1, N ) 





36 









37 



THIS iRDUTINE 

UNPACKS f WORDS OF DATA FROM THE H 





38 



ARRAY TO THE 

L ARRAY* WORDS IN L ARE ZEKOEO AND W 





39 



BITS ARE PLACED RIGHT JUSTIFIED FROM THE PACKED 





40 



ARRAY* M. 






41 

42 


ENTRY 

UNPAfcX 


000052 




43 


USING 

*»15 

USE REG 15 FOR BASE 

000052 

9027 

DO 1C 

0001C 

44 

UNPACK 

STM 

2,7,28(131 

SAVE REGS 

000056 

9825 

1000 

ooooo 

45 


LM 

2*5. 0(1) 

LOAD ADDRESSES OF ARGUMENTS 

OOOOSA 

5844 

0000 

00000 

46 


L 

4*0(41 

1 TO REG 4 - NO. CF ITEMS TO BE PACKED 

00005E 

5875 

0000 

ooooo 

47 


L 

7,0(51 

« TO REG 7 - NO. CF BITS/ITEM 

000062 

4270 

F025 

00077 

48 


STC 

7.LEFT+3 

MODIFY SHIFT INST WITH NO. OF BITS 

000066 

1367 


- 

49 


ICR 

6*7 

NO. OF BITS SHIFT FOR OECREHENT 

000068 

0670 



50 


BCTR 

7,0 

N-l FOR COMPARAND 

0000 6A 

4150 

0020 

00020 

51 

DATA 

LA 

5,32 

LOAD A 32 TO REG 5 FOR COUNT 

0000 6E 

5813 

0000 

OOOOO 

52 


L 

1*0(3) 

10 AO PACKED DATA TO REG 1 

000072 

1800 



53 

BACK 

SR 

0,0 

ZERO REG 0 

i 000074 

8000 

0000 

ooooo 

54 

LEFT 

SLDL 

0*0 

SHIFT N BITS TO REG 0 

000078 

5002 

0000 

ooooo 

55 


ST 

0*0(2) 

STORE IN L 

00007C 

4122 

0004 

00004 

56 


LA 

2,4(2) 

INCREMENT STORAGE ADDRESS 

000080 

4640 

F038 

0006A 

57 


8CT 

4, MORE 

COUNT DOWN ON NO. OF ITEMS 

000084 

9827 

DO IG 

OOOIC 

58 


LH 

2,7,28(13) 

RESTORE REGS 

000080 

07F£ 



59 


BR 

14 

RETURN 

OOOOQA 

8656 

F020 

00072 

60 

MORE 

BXH 

5*6, BACK 

BRANCH BACK IF MORE DATA 

00008E 

4133 

0004 

00004 

61 


LA 

3,4(J1 

OTHERWISE INCREMENT DATA ADDRESS 

000092 

47F0 

FOlfl 

000 6A 

62 


B 

DATA 

AND CONTINUE 


, I LOC OBJECT^CODE ADDRl A0DR2 STMT SOURCE STATEMENT F01FEB6? 4/14/70 






64 * 

FUNCTION ITEM I M, 

1, N ) 






65 * 

66 * 


THIS ROUTINE 

RETRIEVES THE 1 TH ITEM FROM THE 

PACKED 





67 * 


ARRAY M* 







68 * 
69 

ENTRY 

ITEM 


— t 

000096 




70 

USING 

*♦15 



000096 

9025 

DOIC 

OOOIC 

71 ITEH 

STM 

2,5*28(13) 

SAVE REGS 


00009A 

9824 

1000 

ooooo 

72 

LM 

2,4,0(11 

LOAD ADDRESSES OF ARGS TO REGS 

2*3,4. 

00009E 

5833 

0000 

ooooo 

73 

L 

3,0(31 

LOAD I TU REG 3 


OOOOA2 

0630 



74 

BCTR 

3.0 

SUBTRACT 1 FOR 1-1 


OOOOA4 

4100 

0020’ 

00020 

75 

LA 

0,32 

LDAO A 32 TO REG 0 


0D00A8 

8EOO 

0020 

00020 

76 

SRDA 

0,32 

SHIFT TO REG 1 


OOOOAC 

5004 

0000 

ooooo 

77 

0 

0*0(41 

DIVIDE BY N 


OOOOBO 

5010 

F04E 

OOOE4 

70 

5T 

1 .TEMP 

NO. OF ITEMS/HQRD 


000084 

1803 



79 

LR 

0,3 

1-1 TO REG 0 


0000B6 8EOO 

0020 

00020 

80 

SRDA 

0,32 

SHIFT TO REG 1 


OOOOBA 

5D00 

F04E 

000E4 

81 

D 

O.TEMP 

DIVIDE 1-1 BY NO. ITEMS/WORD 


OOOOHE 

1851 



82 

LR 

5,1 

SAVE IN REG 5 TO INOEX ARRAY M 


ooooco 

6B50 

0002 

00002 

83 

SLA 

5,2 

MULTIPLY OY 4 


0DD0C4 

8EO0 

0020 

00020 

84 

SRDA 

0,32 , 

REMAINDER TO REG 1 


OOOOC8 

5C04 

oooo 

ooooo 

85 

H 

0,0(41 

MULTIPLY BY N 


OOOOCC 

1331 



86 

LR 

3,1 

LOAD TO REG 3 TO INDEX SHIFT 


OOODCE 

5815 

2000 

ooooo 

87 

L 

1,0(5, 2) 

LOAD DATA FROM H ARRAY 


000002 

8910 

3000 

OOOOO 

08 

SLL 

1,0(31 

LEFT ADJUST PROPER ITEM 


000006 

5344 

0000 

ooooo 

89 

L 

4,0(4) 

LOAD N TO REG 4 


OOOODA 

8000 

4000 

ooooo 

90 

SLDL 

0,0(41 

SHIFT N BITS TO REG 0 


OOOOOE 

9325 

DOIC 

OOOIC 

91 

LM 

2,5,28113) 

RESTORE REGS 


OOOOE2 

07FE 



92 

BR 

14 

RETURN 


000 0E4 




93 TEMP 

DS 

F 







94 

END - 
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CROSS-RE F&RENCE 


SYMBOL LEN VALUE OEFN REFERENCES 

BACK COOD2 000072 0053 0060 

DATA 00004 00006* 0051 0062 

ITEM 00004 000096 0071 0069 

LEFT 00004 000074 0054 0048 

LOOP 00004 000022 0021 0031 

MORE 00004 00008A 0060 0057 

NEXT 00004 000046 0031 0028 

PACK C0001 OOOOOO 0009 

SHIFT 00004 000026 0022 0015 

TEHP 00004 OOOOE4 0093 0078 0081 

UNPACK 00004 000052 0044 0042 

WORD 00004 OOOOIA 0019 0033 


4/14/70 


NO STATEMENTS FLAGGED IN THIS ASSEMBLY 

120 printed lines 


F80-LEVEL "CINKACE EDITOR OPTIONS SPECIFIED IIST,NCAL 

VARIABLE OPTIONS USED - S !ZE- ( 1 26976,24576) DEFAULT OPTION(S) USED 

1EHOOOO NAME H0X01P4 CRJ 

****HOX01PK NCW REPLACED IN DATA SET 
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(17) 


r OS/360 FORTRAN H 


DATE 70.104/16.49.36 



COMPILER OPTIONS - NAME- MA IN,0PT-02,HNECNT=44 tSOURCE»eCD»NQLIST,NOOECK»LOAO, NOHAP.NOEDIT, IO.NOXREF 
ISN 0002 SUBROUTINE REVALU 

CTHIS SUBROUTINE RECALCULATES THE APPROPRIATE VALUES FOR RECURRING COSTS 
ISN 0003 DOUBLE PRECISION NAME 

1SN 0004 INTEGER H,PROG 

ISN OOOS INTEGER* 2 1VEH .LVS.NSTRST. LVARY.LVD. NYRSST,MLVP, LABEL, L NO ATE ,VEM 

ISN 000 6 C0HMQN/5CRACH/T0TAL(2O),W(2[>},NSL(10),NOPt72),LVSF(66),D(20) T 

1 XLVSUM(20»S0),X0UT(20)tV0l}T(20) t RF(72) t CF(72),SF(72)tFLAGR(72)f 

2 FLAGS (72 >»PR0G,10D0, KVEHI ( SO ) »RRR( 20 ) , IMAGE 1 830} , YE ARC 201 * 

3 Y (20) ,NS$F (72) rNSRF(72l »NSXF ( 72 ! ,N0SFI72 ) > SUSTFI 72) »VNAM 166 ) * 

4NSCALE ( 5 ) .RECUR < 20* SO )» NSTRRC (72 ),NYRSRC (72 ) ,LNQFf 72) ,KVEH t 60) , 

5 I ERR, SKI P»MYFLAG»NPRO( 90 ),KPRQ(90) ,DUMSt 145 ) 

ISN 0007 C0MM0N/SAVES/N«H*IVEH166) tLVS(66)rS(72)«NSTRST(72)fR(72) tLVARY(66) 

1 . LVD( 66) t NLVP(72 ) t XSCH( 10,66 ) .LABEL (50) ,NCS«CS (90) » 

2 NPR0G(90) *KPR0G(90) «K00E(90) tLNDATE (72) 

ISN OOOB COHMON/SAVEB/NAME(56), MITR, ALPI14, 60) ,C(72) .SUSI72) , 

I PLRC50) »RDI5T(S6,4) *RF!XO( 12, 72) ,NSTRFX(72) ,NYRSFX(72 ) ,TREF 
ISN 0009 CQHH0N/SAVEB1/NHIS.VEHI4. 60). FINISH, RC0ST161 ) ,STG(40 > ,NSPR, 

I NYRSSTC72) 

ISN 0010 L » PROG 

ISN 0011 NSTRRC(L) = 100 

ISN 0012 NYRSRC(L) = 0 

ISN 0013 LNDATE(L) » 100 

ISN 0014 IF (NLVPIU.EQ.O) GO TO 21 

ISN 0016 DO 34 LC = 1,20 

ISN 0017 34 RECUR (LC,L) a 0.0 

ISN 0018 IJ « NLVPIL) 

ISN 0019 H • LVARY(L) 

ISN 0020 IB - LVS(H) 

ISN 0021 IF (IB.LT.4) IB » 4 

ISN 0023 00 38 K=1,IJ 

ISN 0024 IF (LVO(H).EQ.O) GO TO 3S 

ISN 0026 IA = LVS (H)-3 

ISN 0027 IF (IA.LT.1) IA=1 

ISN 0029 IK « LVDIH) 

ISN 0030 ILV « IVEH(H) 

ISN 0031 DO 37 J*1,IK 

C RCST « VEH. RECURRING COST/YR. BY MISSION 
ISN 0032 RCST o XSCH( J»H)*RCOST I ILV) 

C RC PL » PAYLOAO RECURRING COST/YR. 

ISN 0033 RCPL « XSCHI J,H)*PLR(U 

ISN 0034 DO 36 1*1,4 

ISN 0035 II « LVSIH) -I8SICJ-1 


ISN 0036 IF (Il.LT.l) II«1 

C DISTRIBUTE RECURRING COST BY YEAR 

ISN 003 B 36 RECUR) II »L) = RECUR! 1 1 ,U £ALPI ( I , ILV)*RCST £ RDISKL, I )*RCPL 

ISN 0039 37 CONTINUE 

ISN 0040 NYRSRCIL) - HAXO INYRSRC(L) , 1 1 1 

ISN 0041 NSTRRC(L) a HINO (NSTRRC (L ) , IA) 

ISN 0042 LSUB * LNOATE(L) 

ISN 0043 LVSU8 =* LVS(H) 

ISN 0044 LNOATE(l) = HINO! LSUB, LVSUBJ 

ISN 0045 3B H =* H £ 1 

C NYRSRC £ NSTRRC - 0 FOR DEVELOPMENT PROGRAMS 
ISN 0046 21 IF (NSTRRC(U.EQ.IOO) NSTRRC(L) * 0 

, ISN 004B 99 RETURN 

ISN 0049 ENO 

i 

****** END OF COMPILATION ****** 
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"^88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST* XREF » NAP » NC AL 

VARIABLE OPTIONS USED - SI ZE=( 126976*24576) DEFAULT OPTIONIS) USEO 

EH OOOQ NAME HDX02RUI R > 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 

NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION 

REVALU 00 878 

SCRACH 478 47A4 

SAVES 4C20 1660 

SAVES 6280 1BD0 

SAVEBi 7E50 410 


LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

1H CONTROL SECTION 

FO 

SCRACH 

SCRACH 

F4 

SCRACH 

SCRACH 

FB 

SCRACH 

SCRACH 

FC 

SCRACH 

SCRACH 

100 

SAVES 

SAVES 

104 

SAVE5 

SAVES 

108 

SAVES 

SAVED 

IOC 

SAVED 

SAVEB 

110 

SAVEBI 

SAVES 1 




''ENTRY ADDRESS 

00 





(TOTAL LENGTH 

8260 






f****H0X02RU NOW REPLACED IN DATA SET 


1171 * OS/ 3 60 FORTRAN H OATE 70.105/09.09.46 

COMPILER OPT IONS - NAMGb MAIM, OPT«=02. L INFCNT.44, SOURCE ,BCD*NUL 1ST *NOOECK»LOAD. NOHAP. N06DI T* ID.N0XR6F 
ISN 0002 SUBROUTINE SHIFT 

C THIS SUBROUTINE SHIFTS THE DEVELOPMENT START OATES AND DURATION IN ORDER 
C TO ACHIEVE A SMOOTHER LEVEL OF SPENDING 
C 

ISN 0003 DOUBLE PRECISION NAME 

ISN 0004 LOGICAL SKI P, ACCL*EXT 

ISN 0005 INTEGER H*PROG 

ISN 0006 I NT EGER* 2 IVEH.LVS.NSTRST* LVARY*LVO*NYRSST ,NLVP,LABELtLNDATE * VEH 

ISN 0007 COMM0N/PLSAVE/TITLE(10)»FIX6D(2Ol,LEVEL<2O1»CNTRVLI2O>, 

1 PHAX t PH1N,ACCL»EXT,ISTRT. ifin,haxitr,hcstr 
I SN 000 8 COMMON/ SCRACH/ TOT AL ( 20) . W 1 20 1 , NSL < 10) *NOP ( 72 1 » LVSF 1 66 ) » D ( 20 ) ♦ 

1 XLVSUM{ 20* 50) tXOUT 120) ,VOUT (20) *RF (72 1 *CF(72 > *SFC72) ,FLAGR I72>* 

2 FLAGS ( 72 ) * PROG * I ODD * KVEHI 150 ) ,RRR 120) , IHAGE( 830 ) *YEAR< 20) * 

3 Y(?0),NSSF(72)*NSRFI721,NSXF{72)*NDSF(72)*SUSTF(72),VNAM(66)* 
4NSCALEl5).RECUR(20,50),NSTRRCC72l*NYRSRC(7Z)*LNOF(721 f KVEH| 60)* 

5 I ERR, SKIP*HYFLAG*NPRO( 90 ) ,KPRO( 90) *OUMS C 1451 

ISN 0009 C0MH0N/SAVES/N,H*IVEH(66>»LVSC66)*S(72),NSTRSTI72)»R(72)»LVARYC66) 

1 t LVD ( 66) * NLVPI 72 ) *XSCH( 10*66 ) * LABEL! 50) *NCS*CS (90) * 

2 NPRllr.(90)*KPR0G|90) *KOOE (90) ,LNDATE (72) 

ISN OOIO COMMON/ 8AVER/NAHE( 561 * H ITR* ALP I (6* 60) *C(72 ) *SUSt 72 ) * 

1 PLRlSOJtRD)ST(56 f 4).ftFlX0U2 t 72),N$TRFX(?2)*HYRSFXI7?)»TREF 
ISN 0011 COMHDN/SAVE81/NMIS*VEH(4»60)*FINISH*RCOST(61 )*STG(40|»NSPR* 

I NYRSST (72 1 

C 

ISN 0012 110 I ODD = JOOD £ 1 

ISN 0013 GO TO (140*150*160*168*170*178*1801* IODD 

ISN 0014 140 STR - $(PROG) 

ISN 0015 $ (PROG) - STR t 1.0 

ISN 0016 145 CALL CDNSTR 

ISN 00 IT IF (IFKR.NF.O) CD TO UO 

ISN 0019 CU TU 14 

ISN 0020 150 S(PRUG) • STR - 1.0 

ISN 0021 IF (S(PROG).LT.TREF) GO TO 110 

ISN 0023 GO TO 145 

ISN 0024 160 5 (PROG) * STR 

ISN 0025 IF (R (PROG) «EQ.O« ) GOTO 190 

ISN 0027 CKR ■ R(PftOG) 

ISN 0028 CKC « C(PROG) 

ISN 0029 CKS - SUS (PRUG) 

ISN 0030 NDS « NYRSST (PROG) 

ISN 0031 NSS ■ NSTRST(PROG) 

ISN 0032 NSR - NSTRRC(PRUG) 
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ISN 

0033 


NYRC =* NYR SRC 1 PROG 1 

IISN 

0034 


NSX =* NSTRFX (PROG > 

ISN 

0035 


NSO - LNDATE 1 PROGI 

ISN 

003 6 


R(PROG) * CKR £ 1.0 

ISN 

003? 


NSTRSTIPROGI ■ I NT { 2>0*RI PROG) /3.0 £ .999) 

ISM 

003 S 


NSTRRCIPROG) « NSR £ 1 

ISM 

0039 


NS7RFXIPR0GI ■ NSX £ l 

ISN 

0040 


LNDATE (PROG) - NSO £ 1 

ISN 

0041 


IF INLVP 1 PROG) «E0.0) GO TO 165 

ISN 

0043 


IJ - NLVP(PROG) 

ISN 

0044 


H = LVARYI PROGI 

ISN 

0045 


DO 162 I=I*IJ 

ISN 

0046 


NSU!) = LVSIH1 

ISN 

0047 


LVSCHI = NSLCN £ 1 

ISN 

0048 

162 

H * H £ 1 

ISN 

0049 


DO 34 LC - 1*20 

ISN 

0050 

34 

RRRILC) = RECUR (LC* PROG) 

ISN 

0051 

164 

CALL REVALU 

ISN 

0052 

165 

CALL CONSTR 

ISN 

0053 


IF ( IERR.NE.O) GO TO 110 

ISN 

0055 


IFIKFIPROG) - R 1 PROG I ) 9010*9020*9030 



C DEVELOPMENT DURATION IS STRETCHED OUT 

ISN 

0056 

9010CIPKOG) ■ 1.8 £ .2*R |PROG)/RF(PROG) ) * CFIPR06) 

ISN 

005T 


GO TO 9050 

ISN 

0058 

9020 

Cl PROGI * CF C PROG) 

ISM 

0059 


GO TO 9050 



C DEVELOPMENT DURATION IS ACCELERATED - CRASH PROGRAM 

ISN 

0060 

9030 

X ■ AINT ( .5*RF (PROG) £ .99) 

ISN 

00 61 


IF(FUPROG).LT.X) RIPROG) « X 

ISN 

0063 


C (PROG) = CF ( PROG ) * EXP (11. -R (PROG) /RF I PROG )) / (RIPROG)/ 




l* RF I PROG) - .4)1 

ISM 

0064 

9050 

IF ( NYRSST 1 PROG >.E0.0) GO TO 14 

ISM 

0066 


NYRSST(PROG) •* NDSFIPROG) £ 1 £ NSS - NSTRST (PROG) 



C THE FOLLOWING OEFN. OP NYRSST IS THE ORIGINAL 



C 

NYRSST ( PROG) = R|PROG)/RFIPROG)*FLOAT|NDSF(PROG))£.001 

ISM 

0067 


X » NYRSST (PROG) ' 

ISM 

0068 


SUS 1 PROGI « C(PROG)/CFCPROG)*SUSTF(PROG)/X*FLOAT(NDSF(PROC 

ISM 

0069 


GO TO 14 

ISN 

0070 

168 

IF(.NOT.EXT) GO TO 110 

ISM 

0072 


S (PROGI - STft - 1.0 

ISM 

0073 


IFIS(PROG).LT.TREF) GO TO 110 

ISM 

0075 


IF(NLVPIPRDG).EO.O) GO TO 165 


ISN 0077 


GO TO 164 

ISN 0078 

170 

SI PROG) « STR * 

ISN 0079 


IF (CKR.EQ.RF ( PROG) , AND. .NOT, ACCL) GO TO 180 

ISN 0081 


RIPROG) ■ CKR - 1.0 

ISM 0082 


NSTRST 1 PROG ) > JNT ( 2«0*R 1 PROGI/3 .0 £ .999) 

ISN 0083 


NSTRRCIPROG) » NSR — I 

ISN 0084 


NSTRFX (PROG) * NSX - 1 

ISN 00 B5 


LNDATE ( PROG J ■ NSO - 1 

ISN 0086 


IF INLVP(PROG).EQ.O) GO TO 165 

ISM 0088 


IJ ■ NLVP(PROG) 

ISM 0089 


H - LVARY (PROG) ' 

ISN 0090 


DO 172 I-1,1J 

ISM 0091 


LVSIH1 - NSLIII - l 

ISN 0092 

172 

H * H £ 1 

ISN 0093 

175 

GO TO 164 

ISN 0094 

178 

tFUNOT.EXTI GO TO 110 

ISN 0096 


SI PROG) - STR £ 1.0 

ISN 0097 


IFINLVP(PRQGI.EO.O) GO TO 165 

ISN 0099 


GO TO 164 

ISN 0100 

180 

SI PROG) * STR 

ISN 0101 


RIPROG) = CKR 

ISN 0102 


C ( PROG) = CKC 

ISN 0103 


SOS (PROG) * CKS 

ISN 0104 


NYRSST (PROG) - NOS 

ISN OIOS 


NSTRST (PROG) > NSS 

ISN 0106 


NSTRRCIPROG) = NSR 

ISN 0107 


NYRSRC (PROG) ■ NYRC 

ISN 01 08 


NSTRFXIPROG) « NSX 

ISN 0109 


LNDATE ( PROG) * NSO 

ISN 0110 


IF (NLVP(PROG).EQ.O) GO TO 190 

ISN 0112 


IJ = NLVP(PROG) 

ISN 0113 


H » LVARY(PROG) 

ISN 0114 


DO 182 

ISN 0115 


LVSIH) - NSLIII 

ISN 0116 

182 

H ■ H £ I 

ISM 0117 


00 36 LC * 1*20 

ISN Oil B 

36 

RECUR! LC* PROG) " RRRILC 1 

15N 0119 

190 

MYFLAG - 0 

ISN 0120 


RETURN 

I5N 0121 

14 

MYFLAG - I 

ISN 0122 


RETURN 

ISN 0123 


END 



F88-LEVEL LINKAGE EDITOR OPTIONS SPEC1FIEO L IST»XREF »HAP*NCAL 

VARIABLE OPTIONS USEO - SIZE-J 126976*24576 ) OEFAULT OPTION'S) USED 

1EWOQOO NAME H0XO2ST(R) 

U6W0461 EXP 
1EW0461 CONSTR 
1EW0461 REVALU 


CONTROL SECTION 


CROSS REFERENCE TABIC 


NAME 

ORIGIN 

LENGTH 

NAME LOCATION 

NAME LOCATION 

NAME 

LOCATION NAME 

SHIFT 

DO 

708 





PLSAVE 

708 

138 





SCRACH 

910 

47A4 





SAVES 

50B8 

1660 





SAVEB 

671 B 

1800 





SAVE81 

B2E& 

410 





LOCATION 

REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION REFERS 

TO SYMBOL 

tN CONTROL SECTION 

140 


PLSAVE 

PLSAVE 

144 

SCRACH 

SCRACH 

148 


SCRACH 

SCRACH 

14C 

SCRACH 

SCRACH 

150 


SCRACH 

SCRACH 

154 

SAVES 

SAVES 

158 


SAVES 

SAVES 

15C 

SAVEB 

SAVEB 

160 


SAVEB 

5AVEB 

164 

SAVEB1 

SAVE61 

168 


EXP 

4UNRES0LVE0 

16C 

CONSTR 

^UNRESOLVED 

170 


REVALU 

1UNRES0LVE0 





ENTRY ADORE SS 
TOTAL LENGTH 


****HOX02ST NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE* NCAL WAS SPECIFIED. 


LOCATION 


H-32 



SMOOTH 


DATE « 70X05 


09/10/22 


FORTRAN I V' G LEVEL 1, 


K0001 


lo002 

J0003 
'[0004 
1 0005 
,0 00 6 

0007 


0008 


0009 


0010 

0011 

0012 

0013 

0014 

0015 

0016 
0017 
00 IB 
0019 
■ 0020 
10021 
{0022 

0023 

0024 
*002 5 


SUBROUTINE SMOOTH! PRGLV, ASTR .BLANK , ZERO I 
C BUDGET SMOOTHING PROGRAM - R b. SITE 
C MODIFIED BY C.J. GOLDEN 
REAL LEVEL 

DOUBLE PRECISION NAME 
LOGICAL SKIP, DOT * ACCL» EXT 
INTEGER PR0G»H,FINISH 

INTEGERS IVEH,LVS,NSrRST»LVARY,LVD,NYRSSTtNLVP/lABEL»LNDATE,VEH 
C THE FOLLOWING STORAGE IS FOR SUBROUTINE USE ONLY BUT MUST BE SAVED 
C0MMUN/PLSAVE/TlTlEU0l,FIXfcDI2fi} ,L6VEL ( 70 ) , GNTRYL (20) , 
i PMAXtPMlN,ACCL»EXT, iSTRTt !FIN,MAX!TRtNCSTR 
C THE FOLLOWING STORAGE IS FOR SUBROUTINE USE ONLY £ NEED NOT BE SAVED 
COHMON/SCRACH/T0TAL(20)*W(2O>*NSL!10>,N0P(72),LVSFl66),0(2Ol* 

1 XLVSUM (20. 50) * XOUT (201 .VDUT (20) *RF 1 72 > *CF 1 72 1 *$F(72> * FLAGR (72 ) * 

2 FLAGS (72) . PROG* I ODD « KVEHI ( 501 ,RRR( 20 1 * IMAGE 1 830) »YEAR ( 20) » 

3 -s Y (20) *NSSF (72 1 *NSRF( 72 1 .NSXF (72 1 »NOSF ( 72) . SUSTF 1 72) *VNAM(66 1 * 
4NSCALE(5),RECUft(20i50J,NSTRRC(72)»NYRSRC(72).LN0F(72)*KVEH( 60). 

5 l6KRiSKlP,HYFLAG*NPRO(90)*KPR0(9O),CSX(90) »0UM$X(5S) 

C THE FOLLOWING STORAGE IS USED IN MASTER ANO SMOOTH 

C0MH0N/SAVES/N,M*tVEH(66I f LVS(66)>S(72).NSTRST(72l *R(72) *LVARY(66) 

1 * LVO( 66) * NLVP (72 ) »XSCH( 10.66 >* LABEL (30) *NCS*CS f 90) * 

2 NPROG ( 90 1 , KPROG ( 90 ) » KOOE ( 90 > * LNDATE ( 72 ) 

C THE FOLLOWING STORAGE IS USED IN HASTER ANO SMOOTH ANO ASSIGN 
COMMON/ S A VEB/NAME 156), H1TR* ALPHA, 60) ,C( 72) ,SU$ ( 72) , 

1 PLR(50).ROIST(56*4>*RFIXO(12*721 *NSTRFX(?2 ) *NYRSFX(72 I *TREF 

C0MH0N/SAVEai/NHIS.VEH(4*60),FlNISH,RCaST(61)tSTG(40>*NSPR» 

1 NYRSSTI72) 

COHHON/S AVENV/NV , HYRS 

C STORAGE USED IN OECISN AND ASSIGN / MODEM IS USED IN SMOOTH 

COMMON/ A SON/ 1 ST (40) , J5T ( 30 ) ,KST ( 40) *KODEH( 50 ) *YDS(40) tYOF (30) , 

I YDII40) 

COHMON/BATCH/XNSTGtKNFAH*KNCl*KNHIS*KNSP*KOOESP(6) 

OIMENSION PRGLV(4) 

EQUIVALENCE (LStLEVEL(l))* (LF,LEVEL(2) ) 

1000 * 0 

NSCALE ( 1 ) - 1 

NSCALE (2) - 0 

NSCALE (3 ) * 0 

NSC AL6(4) » 0 

NSCALE! 5) ■ 0 

IF (FINISH. GT.l) GO TO IB 

PMAX « 5000. 

PH IN - 1500. 


v FORTRAN iV G LEVEL 1 MOO *4 


SMOOTH OATE - 701&S 09/10/22 

r 


*10026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 


0035 

0036 

0037 
0036 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 
00 60 
00 61 
0062 
0063 


C ACCL ■ TRUE IMPLIES USE ACCELERATION OPTION 
ACCL ■ .TRUE. 

C EXT * TRUE IMPLIES USE EXTENSION OPTION 
EXT - .TRUE* „ , 

DO 5 1*1,10 

5 TITLE (l> * BLANK 
DO 6 I • 1*70 
CNTRVLI!) - BLANX 

6 FIX6LHI1 * 0.0 
WRITE ( 6*399) 

16 CALL INPUT ( 6HTI TLE , TITLE* 6HLEVEL .LEVEL, 6HIS7RT ,ISTRT, 

X 6HIFIN . IF ]N* 6HMAX ITRtKAXITR, 6HNCSTR *NC$TR,6KNPR0G , NPROG, 
X 6HKPR0G , KPROG, 6HKOOE *K0DE,6HCS ,CS.6HF1XED .FIXED* 

X 6HPMAX *PMAX» 6HPMIN ,PH!N* 6HACCL , ACCL, 6H6XT ,EXT> 

DO 8 1 • 1,NCSTR 
DO 2 II « 1 » NH I S 

IF (NPROG (1 J.EO.KOOEMt 111) GO TO 3 

2 CONTINUE 

II - 0 

3 NPROG! I 1 * 11 
DO 1 11 - 1 , NH I 5 

IFIKPROGII).EO.XOOEM(IU) GO TO 4 
l CONTINUE 
II ** 0 

4 KPROG! I) * II 
8 CONTINUE 

IF(NSPR.EO.O) GO TO IB 
DO 510 1 • l.NCSTR 
DO 502 II - l.NSPft 

IFINPROGID.EO.KODESP! Ill) GOTO 503 

502 CONTINUE 
II » -NM1S 

503 NPROG! I) - II + NHIS 
00 501 II - l.NSPR 

IMKPROGID.EO.KOOESPdin GO TO 504 
501 CONTINUE 
II - -NKIS 

504 KPROC(I) " 11 + NHIS 
510 CONTINUE 

IB I F (NCS.EO.O) GO TO 20 
DO 19 I * t*NCS 
KOBE ! NCSTR 4 ]) • 11 

CSINCSTR ♦ I) - CSX! I) 



FORTRAN iV G LEVEL l» MOD 4 


SMOOTH 


DATE - 70105 


09/10/22 


0064 

0065 

0066 
00 67 
0066 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 
0060 
0081 
0082 

0083 

0084 

0085 

0086 
0087 
0086 
0069 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 


FORTRAN 

! 0107 
0108 
0109 
„0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 


NPROGINCSTR ♦ 1) « NPROtll 
KPROGtNCSTR + i) - KPROfI) 

19 CONTINUE 

NCSTR - NCSTR + NCS 
IF (NCSTR. GT. 90 I GO TO 1000 

20 CALL PLOT l (NSCAlE .7 * St I5t6 ) 

T = 1.0 

00 17 1-1»20 

YEARN > » TREF «■ T - 1. 

Ylir « AH0DfYEAR(I) t 100.> 

17 T « T + UO 
WRITE I6>9031 
NLV * 0 

00 33 1 * ltNV 

DO 31 J » 1»M 

lFflVEHfJl.NE.il GO TO 31 

NLV = NLV ♦ 1 

KVEHfl) = NLV 

KVEHKNLV) * 1 

GO TO 3? 

31 CONTINUE 
GO TO 33 

32 IA - VEKfltl) 

IB -*VEHl2tI» 

1C « VEH|3,tl 
ID - VEH14.I1 

WRITE (6, 9051 ItSTGNAl.STGf IB),STG( ICJ,STG(lD),RCOST(n 
, 33 CONTINUE 
x DO 335 I - 1,M 
NX * IVEHII1 

335 CALL AFRHT fNXt VNAHf 1)1 
DO 39 PROG ■ 1,N 
39 CALL REVALU 
22 00 23 l»lfN 
NOPfll = 0 
RFID * RU> 

SFN1 - Sfll 
CFfll ■ cm 
SUSTF(t) - SUS (II 
NDSFtll « NYRSSTf 1 1 
NSSFU) ■ NSTRST(I) 

NSXFfll - NSTRFXfll 
LNDFN) ■ LNOATEIM 


'g LEVEL "l, HOD 4 " ’ 'SMOOTH DATE « 70105 09/10/22 

23 NSRFfll = NSTRRCtt) 

DO 24 I * 1 1 M 

24 LVSFfM » LVSfll 
IFtFlNISH.GT.il GO TO 21 
DU 25 I«!STRT,IFIN 

25 CNTRVLM1 - ASTR 

21 IF (NCSTR - NCS. £0.01 GO TO 27 
1L - NCSTR - NCS 

C NOP -1 IF NO CHANGES ARE ALLOWEO IN PROGRAM VARIABLES 
00 26 I « 1 . 1 L 
J » NPR0GII1 

IF (KOBE ( 1 ) .E0.8] NOP ( J ) «= 1 

26 CONTINUE 

27 OUT = .FALSE. 

DO 61 PROG * 1»N 

IF (NOP (PROG 1 • EC* 1 1 GO TO 61 

CALL CONST R 

IF 1 1 ERR.NE.O ) WRITE (6*91) PROG 
61 CONTINUE 

91 FORMAT ( »0W ARMING - CONSTRAINT VIOlATEO IN PROGRAM NUMBERS 131 
DO 30 0 ITER - ItHAXITR 
1PRNT * 0 

IF IITER.EO.KAXITR) IPRNT • l 
DO 200 PROG - 1 * N 

C 1000 INDICATES WHAT TYPE OF CHANGE IS BEING MADE- IT * 0 INITIALLY 

14 SKIP * ( IPRNT. EQ.O. AND. ITER. GT.l) .OR. PROG. NE.1.0R«1000*NE.0 
IF (SKIP.AND.NQP(PROG). EQ.l-AND.PROG.NE.il GO TO 200 

15 DD 30 J-U20 
TOTAL IJ> » 0. 

30 W(J) ■ 0. 

IF (SKIP) GO TO 55 
40 XT - 0. 

ST » 0. 

DO 50 1*1 tN 

C FLAGR « * INDICATES A CHANGE IN DEVELOPMENT DURATION 
FLAGR(I) - BLANK 

C FLAGS « * INDICATES A CHANGE IN START DATE OF DEVELOPMENT 
FLAGS! 1 1 * BLANK 

IF (R(t).NE.RFM )) FLAGR t I ) « ASTR 
IF (SU).NE.SF(IM FLAGS ( I I - ASTR 
X - NYRSSTin > 

ST - ST ♦ susm*x 
50 XT » XT + cm 



FORTRAN-ir G LEVEL 1, HOD * 


SMOOTH 


DATE » 70105 


09/10/22 


01*6 

01*7 

01*B 

01*9 

0150 

0151 

0152 

0153 
015* 


0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 
0163 
016* 

0165 

0166 

0167 

0168 


0169 

0170 

0171 
' 0172 
^,0173 

017* 

0175 

J0176 

V0177 

0178 

0179 

joiso 


WRITE‘16,90) TREF, TITLE 
WRITE 16,921 
DO 53 ‘!«1,M 

I F ( I .GT • NH I S+N5PR > GO TO 52 

K * NYRSRCU1 

I F{ I ,GT . NHI S ) RECUR (1 , 1 I -0.0 

WRITE (6,9*) I,NAME( I ).S( I) ,FLAGS( I! ,C( I ! ,R (1) .FLAGR(I) *SUS (I), 

X NSTRST ( 1 ) ,NYRSST ( I 1 rNSTRRC ( 1 ) ,NYRSRC < 1 ) , (RECUR( J, ) ), J-l ,K) 

GO TO 51 

52 WRITE (6, 93) I , LABEL! I-NHIS-NSPR) ,S(1 >, FLAGS! I > ,C(!t,RU ) ,FLAGRU ) , 
l SUS(l), 

X NSTRST 1 1 > ,NYRSST ( I ) , NSTRRC! 1 1 jNYRSRC ( 1 1 
31 K « NYRSFX(I) 

IF (K.EQ.O) GO TO 53 

WRITE (6,98) NSTRFXt [>,NYRSFX(I)f (RFIXDIJ tI 1, J«1,K> 

53 CONTINUE 

WRITE ( 6, 95 ) XT, ST 
IF (ITER. ME. 1) WRITE 16,902) 

WRITE (6,96) (YEAR! I), 1*1, 20) 

WRITE (6,97) 

CALL PL0T2 ( IMAGE, Y(16),Y(1),PHAX,PH1N) 

DO 5* 1=1,1000 
5* XLVSUHMtl) * 0.0 
C * 

55 CALL TCOSTt J, BLANK ,ASTR ) 

C 

IFaS.GT.PO.nM.LS.Lfc.O) GO TO 7B 
XL » 0. 

C IF LEVEL! 1) AND (21 ARE INPUT AS INTEGER YEARS* THEN THE PROGRAM 
C TAKES THE' AVERAGE SPENDING OVER THE PERIOD ENCOMPASSED 8Y THESE 
C YEARS AS THE DESIRED BUDGET LEVEL 
DO 76 I-LS,LF 

76 XL = XL+TOTALII) 

XL ■ XL/FLOAT (LF-LS+1) 

DO 77 J-1,20 

77 LEVEL (1 ) - XL 

78 IF (SKIP) GO TO BO 
WRITE (6,99) (W(1),I>1,J) 

WRITE (6,990) (FIXED! 11,1-1, J) 

WRITE (6,991) (TOTAL (I ),t-l,J) 

WRITE (6,9931 CNTRVL 

WRITE 16,992) (lEVElU),t = l,J) 

CALL PL0T3 ( ZERO, Y, LEVEL , IFIN) 


[FORTRAN 

IV G LEVEL 

1, HOD * SMOOTH DATE - 70105 

09/10/22 

I 0181 

*1 

CALL PL0T3 (ASTR,Y, TOTAL, J 1 


:0182 

80 

SOD « 0 


0183 


DO 100 ,! -I STRT, IF IN 


018* 


SOD = 1 TOTAL ( I ) -LEVEL! I ) 1**2 SOD 


0185 

100 

CONTINUE 


0186 


RHS * SORT (SQD/FLOAK IFIN-ISTRT+Il) 



C SAVEX » RHS VALUE AT BEGINNING OF ITERATION 

0187 IF (PROG.EO, 1 .ANO. IODD.EO.O) SAVEX - RMS 

0188 IF (SKl.Pt GO TO HO 

C RMS1 * VALUE OF RMS USING INPUT OAT A 

0189 IF ( 1 T6R.E0. 1 ) RHS1 - RHS 

0190 WRITE (6,199) RHS, YEAR ( I STRT ) , YEAR! IF IN) 

0191 WRITE ( 6, 29B ) ITER 

0192 WRITE (6,399) 

0193 CALL PLOT* (13,PRGLV) 

019* WRITE (6**99) 

0195 110 IF (OUT) GO TO *00 

0196 IF ( I TER.EO *MAX ITR ) GO TO 300 

C SAVER - RMS VALUE AT aEG INNING OF PROGRAM CHANGE CflNSIOERAT IONS 

0197 IP( IODD.EO.O) SAVER - RMS ' 

019B IF (RMS. LT. SAVER) GO TO 190 

t C 

0199 CALL SHIFT 


0200 

0201 

0202 

0203 

020 * 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 
0213 
021 * 

0215 

0216 
0217 


IF(HYFLAG.EO.l) GO TO 1* 

190 1000 - 0 

C SAVER ■ VALUE OF RHS AT END OF ITERATION 

IF (RMS. LT. SAVER. AND. PROG. 60. N) SAVER - RMS 
200 CONTINUE 

IF (SAVEX.NE. SAVER) GO TO 300 
IF I1PRNT.NE.0) GO TO *00 
SKIP - .FALSE. 

OUT - .TRUE. 

GO TO 15 
300 CONTINUE 

WRITE (6,390) 

GO TU *03 
*00 WRITE (6,299) 

*03 WRITE (6,9061 ( YEAR (I1*I-1,J) 

WRITE (6,907) 

DO *02 1 -1 »NLV 
XLVTOT « 0.0 
00 *01 I!*1»J 



f FORTRAN lV'G LEVEL 1, HOD 4 


SMOOTH 


DATE « 70105 


09/10/22 


0210 

0219 

0220 
0221 
0222 

0223 

0224 

0225 
022 6 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 


FORTRAN IV G LEVEL 1, MOD 4 ' SMOOTH '~DATE » 70105 09/10/22 

* /6K0YEAR ,4X,20F6.0) 

0259 97 FORMAT (8HOPROGRAK) 

0260 98 F0RMAH44X,2I4, 1ZF6.0I 

0261 99 FORMAT ( fiHOSUH .4X.20F6.0) 

0262 107 FORMAT (44x.2I4.l2F6.il 

0263 990 FORMAT ItH F IXED,4X,20F6.0 ) 

0264 991 FORMAT f 6H TOTAL. 4X.20F6 01 

0265 992 FORMAT (6H LEVEL. 4X .20F6.0) 

0266 993 FORHAT C BX. 201 5X. A1 ) 1 

0267 199 FORMAT ( (WORMS *.F8.0,5X,18HSH00TH1NG INTERVAL, F6.0, 5H THRU.F6.01 

0268 298 FORHAT { lOHOITERATION. 131 

0269 299 FORMAT (UXtllH FINAL CASE) 

0270 390 FORMAT U1X.16H MAX ITR EXCEEDED 1 

0271 399 FORMAT UH1) 

0272 499 FORMAT UKO, 50X.4HYEAR1 

0273 902 FORMAT ( 1H0.40X.34H* INDICATES CHANGE FROM INPUT DATA T 

0274 903 FORMAT { 1H1 , 30X, 19HRECURR1NG COST DATA /1H0, 8X. 3HKEY, 10X. 

* 4HNAHE.24X.9MUN IT COST /1H ) 

0275 905 FORMAT I 10X. 1 2* 10X.4A4, 10X. F 10.2 > 

0276 906 FORMAT I 1H1.30X.35HIAUNCH VEHICLE REQUIREMENTS BY YEAR / 

* 6H0YEAR .6X.20F6.0) 

0277 907 FORMAT UlHOLV TOTAL) 

0278 908 FORHAT 1 IX. I2.F8.2.20F6.U 

0279 ENO 


401 XLVTOT = XIVTOT + XLVSUHIII.I) 

C XLVSUMtll.n » NUMBER OF LAUNCHES IN YEAR II FOR VEH. KVEHI(I) 

402 WRITE (6.9081 KVEH1 ( I ) , XLVTOT . (XLVSUMC 1I«I).II>1*J) 
IFISAVER.LT.RMS1 - .4} GO TO 404 
WRITEI6.V09) 

909 FORMAT (46H0 INPUT ASSIGNMENT IS OPTIMUM SMOOTHED SOLUTION) 

GO TO 7 

404 NNHI = NMIS + NSPR 
00 9 I - l.NNMI 

iFlABStSin ♦ Rill - SF< 11 - RFI 1 1) .GE..01 1 GO TO 13 
IF (NYRSSTl 1 > .NE.NDSF (1)1 GO TO 13 
IFINLVPtll.EO.Ol GO TO 9 
IF(LNOATE(U.NE.LNDF{ ID GOTO 13 
IJ = NLVPII) 

H « IVARY(I) 

DU 11 II - IflJ 

■* X » LVStHl 

IF ( ABSI S( 1 1+X-SF ( 1 1 -FLOAT I LVSF (H ) ) ) . GE . • 0 1 ) GO TO 13 

11 H + 1 . 

9 CONTINUE 

IFIN.EQ.NNM1) GO TO 7 
NNHI = NNMI + 1 

00 10 I » NNMI .N 

1 F< ABS( S (I ) + R ( I ) - SF ||> - RF(m.GE.Ol) GO TO 13 
IFINYRSSKI ).NE.NOSF( ID GO TO 13 
1F(ADS{CF(I)-C{I 1I.GE..001) GOTO 13 

IF (ABS(SUS( I > - SUSTF ( | ) ) . GE . . 00 1 ) GO TO 13 
10 CONTINUE 
7 FINISH - HITR + l 
GO TO 12. 

13 FINISH = FINISH * 1 

12 NCSTR > NCSTR - NCS 
RETURN 

1000 WRITE (6. 1001) 

1001 FORMAT! 38H0NUHBER OF CONSTRAINTS HAS EXCEEDED 901 
RETURN 

90 FORMAT (1H1.15X.14HREFERENCE YEAR, F7.0.SX.10A4 ) 

92 FORMAT ( 78H0PN NAME START DEVL YRS SU5T SS SO RS RD R 
XECURRING OR FIXED ITEMS /1H 1 

93 FORHAT U3.1X.4HDEV » 1 2 »F6.0« IX. Al, F7.0, F4.0 , 1X.A1 , F5. 0,414 ) 

94 FORMAT (?3tlX t A6,F6 O.IX, Ai , F7.0.F4.0.1X ,A1 .F5.0.414. 12F6.0) 

95 FORMAT I20X.4H ,8X,4H /2X.5HTOTAI, 12X.F6 .0 » Fll .0) 

96 FORMAT I IH1 , 30X .47HT0TAL PROGRAM COSTS AND LAUNCH VEHICLE SCHEDULE 


(I 
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FORTRAN IV Q LEVEL It HOD 4 


SMOOTH 


DATE = 7010'S 


09/10/22 


PAGE 0000 


J TOTAL MEMORY REQUIREMENTS 002I3C BYTES 


F88-LEVEL TINKAGE EDITOR OPTIONS SPECIFIED U$T»NCAL»HAP 



variable 

OPTIONS USED 

- SIZE-f 126976, 245761 

DEFAULT OPTION! S) USED 

IEMOOOO 

NAME H0X0Z65 < R 1 



IEW0461 

1BC0H* 




IEN04 61 

INPUT 




ILH04 61 

PL0T1 




UV04M 

ATRHT 




UHMM 

M’VM.M 




imi*M 

CONST H 




ItWOAAl 

PLUT2 




I EV04 6t 

TCOST 




IEW0461 

PL0T3 




IEN0461 

PL0T4 




IEM04M 

SHIFT 




ICW04M 

SOM 







MODULE MAP 


CONTROL SECTION 


ENTRY 


NAHE 

ORIGIN 

LENGTH 

NAME LOCATION NAME 

LOCATION NAME LOCATION 

SMOOTH 

OO 

213C 



PLSAVE 

2140 

138 



SCRACH 

2276 

47A4 



SAVES 

6A20 

1660 



SAVEB 

BOBO 

1BD0 



SAVEB1 

gtSO 

410 



SAVENV 

AO 60 

a 



ASGN 

A06B 

438 



BATCH 

AAAO 

ze 



ENTRY ADDRESS 

00 



total length 

A4D0 




• NDW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 

1EW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE* NCAl MAS SPECIFIED* 


LOCATION 



(17) 


OS/ 3 60 FORTRAN H 


PATE 70* 105/09* 11*01 


COMPILER OPTIONS - NAME* MAIN* nPT-0?,LlN£CNT»44, SOURCE .BCD.NOL 1ST ♦NODECK. LGAD.NOMAP.NOEOIT . ID. NOXREF 
1SN 0002 SUBROUTINE STCNUH 

C DETERMINE NUMBER OF COMPONENTS ACTUALLY USED ANO ASSOCIATED 
C RECURRING COSTS 
C 

ISN 0003 !NTEGEft*2 LYR, LETT *MIN r IS*NQNREC*NYO. LABS* LABF.lABl ,KAT *VEH*LYD* 


ISN 0004 
ISN 0005 


ISN 0006 


ISN 0007 

ISN OODB 
ISN 0009 
ISN 00 10 

ISN 0011 


1 NYRSST 

C THE FOLLOWING STORAGE IS USED IN STGNUH 

COHHON/SAVESH/IFLAG,STGYTR140*20*2),RINTYR(40.201»NBYI40).NCI» 

1 PLCJNT (40) t NFHH40I *NF5( 40*4) *NFHU(40 1 * 

2 H00E(4Ot31 * SR (40*31 *PLC (40*3). P0J(3>tSAJt 3.3 >.RINT 440) 

C THE FOLLOWING STORAGE IS USED IN ASSIGN AND MASTER 

C0MM0N/5AVEA/NH*YRlM(250)*LYft(ZS2)*LETT(25O)*MlNf250) * 

1 05 (501 * SUSTl 50) *YD( 50)* IS 1 106) * NUMD.NONRECl 60*20) *NY0(50) * 

2 LABS<40)*LABF(30)fLABM40)* RXD<1Z,S0) ,MAT(50) 

C THE FOLLOWING STORAGE IS USED IN MASTER ANO SMOOTH ANO ASSIGN 

COMMON/S AVEBl/NHIStVEHf A *60) *F INISH.RCOST 1 61 ) *STG(40) *NSPR* 

1 NYRSST 172 ) 

C THE FOLLOWING STORAGE IS USED IN ASSIGN AND CHOOl 

COMMON/ SAVEC 2/RECUR ( 60 * 20 » 2 ) . VNH ( 4 * 250 1 , LYD( 50 ) , NEXT » GUESS , 

1 LTR (SOI 

CDHMON/SAVENV/NV.MYRS 
COHMON/SAVESG/NSTG 
COMMON/ SAVENR/NUMBR* MX ITR 
C THE FOLLOWING STORAGE NEED NOT RE SAVEO 

COMHON/SCRACH/STGYHW( 40*20) »RtNTHX(40|20)tSTGMAX( 40*20*2)* 

1 0UHHU3B5) 


ISN 0012 

ISN 0014 
ISN 0015 
ISN 0016 
ISN 0017 
ISN 00 IB 
I5N 0019 
ISM 0020 
ISN 0021 
ISN 0022 
ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 


C 

1F(1FLAG*E0.1) GO TO 621 

C FIND MAX NUM OF EACH STAGE AND INTEGRATION POSSIBLE 
DO 661 J* 1 *HYRS 
STGYTRI 1* J« 1 ) « 0,0 

661 STGYTRC I * J* 2 1 - 0.0 
DO 662 I - 1 »NM 

JX - LETT (II 
J ■ LYRM) 

K • LTftIJX) 

662 STGYTR(1,J,KI - YRLMtll £ STGYTRU.J.K) 

00 66R J - l.HYRS 

ftINTYRI 1 » J) * STGYTRU.Jrl) £ STGYTRI 1* J *2) 

666 STGYHWdtJ) « RINTYR(1*J) 

DD 665 t«2*NSTG 
00 665 l.HYRS 


H-38 



ISN 0027 
1SN 0028 
'ISN 0029 
ISN 0030 
ISN 0032 
ISN 0033 
ISN 0034 
ISN 0035 


ISN 0036 
ISN 0037 
ISN 0038 
ISN 0039 
ISN 0040 
ISN 0041 
ISN 0043 
ISN 0044 
ISN 0045 
ISN 0046 
I5N 0047 
ISN 0048 
ISN 0050 
ISN 0051 
ISN 0052 
ISN 0053 
ISN 0054 
ISN 0055 
ISN 0056 
ISN 0058 
ISN 0059 
ISN 0061 
ISN 0063 
ISM 0065 
ISN 0066 
ISN 0067 
ISN 0068 
ISN 0070 
ISN 0071 
ISN 0073 
ISN 0074 
ISN 0075 


STGYTR (I » J, 1 1 * STGYTRU,J»U 
STGYTft 1 1 « J 1 2 ) - STGYTRII,J,2> 

665 STGYHW 1 1 * J J - STGYHYf tl,J) 

IFCNC1 .EO.OI GO TO 673 
00 9100 I * 2, NCI 
00 9100 J * 1*MYR5 
9100 RINTYR f 1 » JV « RINTYR ( l *J I 
GO TO 673 
C 

C DETERMINE NUMBER OF EACH STAGE AND INTEGRATION USED IN EAST ITERATION BY YEARI 
621 00 623 I-1»NSTG < 

DO 623 J>1,HYRS 
DO 623 K=l»2 

STGMAX! I,J,K) « STGYTR!!, J,K1 

623 5TGYTR 1 1 , J|K) - 0.0 
IF(NCI.EO.O) GO TO 9000 
00 624 l-l,NCI 

00 624 J«1»HYRS 
RlNTHXUrJI * RINTYR! I r J ) 

624 RINTYR(ltJ) -CO 
9000 DO 622 J - 1 * NM 

IF{YRLH( J I .EO.O.O I GO TO 622 

1 = MIN(J| 

K - LYRIJ) 

JX » LETT ! J > 

ITR ■ LTR! JX > 

DO 625 HS « I «4 
L » VEH(MS r I) 

IF (L.EO.Ol GO TO 62 2 

STGYTR !L,K, ITR) * STGYTft! L*K, ITR) t YRLH(J) 

IF (NCI .EQ.O) GO TO 625 
IF IMS.E0.4) GO TO 625 
IF (VEH(H$£l,l).EQ.O) GO TO 625 
LI - VEKIHSGUIJ 
DO 626 HI-1, NC! 

DO 627 KY-1,4 

IF CNFHL CHI ) .NE.NFS I LtKY) ) GO TO 627 
DO 628 KZ - 1,4 

IF CNFHO IHI ) • EO.NFSt L1,KZ) I GO TO 629 
628 CONTINUE 
627 CONTINUE 
GO TO 626 

1 


ISN 0076 
ISN 0077 
ISN 0078 
ISN 0079 
ISN 0080 
ISN 0082 
ISN 0083 
ISN 0084 
ISN 0086 
ISN 0087 
tSN COBS 
ISN 0089 
ISN 0091 
ISN 0093 
ISN 0094 
ISN 0095 

ISN 0096 

ISN 0097 
ISN 0098 
ISN 0099 
ISN 01U1 
ISN 0102 
ISN 0103 


ISN 0104 
ISN 0105 
ISN 0106 
ISN 0108 
ISN 0109 
ISN 0110 
ISN 0111 
ISN 0113 
ISN 0115 


ISN 0116 
ISN 0117 
ISN 0119 
ISN 0120 


RTNTHX(ItJ) 


629 R I NTYR (MI , K.) - RINTYR IHI *K) 6 YftlHIJ) 

626 CONTINUE 
625 CONTINUE 
622 CONTINUE 

IFINCI.EO.O) GO TO 9001 
DO 691 I-l.NCI 
00 691 Jvl'HYRS 

691 1 F ! RINTYR! t »J >. EO.O.O) RINTYR ( 1 , J) 

9001 00 676 I - ltNSTG 
DO 676 J * 1 , HYRS 

00 676 X » 1.2 _ 

I FIABS! STGYTft 1 1 , J, K) - STGHAX! I ,J ,K ) 1 .LT .0.001 ) GO TO 676 
IF ! STGYTft! I ,JtK>.GT. 0.00 11 GO TO 677 
676 CONTINUE 

WRITE! 6,4101 ) 

4101 FORMAT I 1H0,4X, 40HTHE OPTIMUM SOUITinN HAS BEEN OETEftHIMED) 
C 

678 CALL VEHRC 


C 

IFLAG = 2 
RETURN 

677 IFINUMBR.LE.MXITR) GO TO 679 

WRlTEl 6,8005 ) _ 

8005 FORMAT! 49H0HAXIHUM NUMBER OF ASSIGNMENT ITERATIONS EXCEEDED) 
GO TO 678 


C 

C 


DETERMINE HARDWARE COSTS BY YEAR BASED 0)1 LAST ITERATION 


679 00 8013 I » l'NSTG 
00 8013 J * 1 , HYRS 

IFISTGYTRUt J, D.GT.O.O.OR .STGYTRII , J ,2 > 
8014 STGYTR! I ,J,1> * STGMAXU,J,11 
STCYTRt I iJi2) - STGHAX I I , J .2 ) 

200 STGYHW 1 1, J) - STGYTRI I , J , 1 ) t STGYTR! I »J, 
8016 1FISTGYTRII,J,1). 60.0.0) STGYTft! I ,J. 1 ) ■ 
IF ISTGYTRUiJ, 2). EO.O.O) STGYTR 1 1 *Jr 21 ■ 
8013 CONTINUE 


•GT.O.O) GO TO 200 


2) 

STGHAX! I ,J , 1 I 
> STGHAX I I , J, 2 J 


c MAKF ADJUSTMENT FOR BATCHING OVER YEARS 
673 DO 663 1 - 1,NSTG 

IF INBY! I ).E0. L) GO TO 663 
IA ■ 2 
IB - NRYU) 
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\ 

\ 


\ 

4 

ISN 0121 IC - 1 

ISN 0122 *66 00 664 J- IA T I0 

ISN 0123 IF IJ.GT.HYRSI GO TO 700 

ISN 0125 664 STGYHW I I r IC ) « STGYWll,IC) £ STGYHW (I.J) 

ISN 0126 * 700 OD 667 J * IA, IB 

ISN 0127 1 "= (J.GT.MYRS1 GO TO 663 

(SN 0129 667 STGYHW (I > J ) • STGYHW C I, IC) 

ISN 0130 IA - IA t NBY(I) 

ISN 0131 IB « 18 l NBYtM 

ISN 0132 1C « 1C t NBYCI) 

ISN 0133 GO TO 666 

)SN 0134 663 CONTINUE 

C 

C DETERMINE VEHICLE RECURRING COSTS BY YEAR A NO LAUNCH SITE 
ISN 0135 DO 632 l«l,NV 

ISN 013 6 DO 635 JMiMYRS 

ISN 0137 RECUR! I» Jfl) ■ 0.0 

ISN 0138 635 RECUR! I,J,2) ■ 0.0 

ISN 0139 DO [633 MS » l t 4 

ISN 0160 K » VEHfHSrI) 

ISN 0141 IF 1 K . EO 0> GO TO 632 

ISN 0143 9004 OD 634 J« l.MYRS 

ISN 0144 IF (STGYHW (KtJ).LT.O 0011 GO TO 634 

ISN 0146 I F (MODE (Kill.NE.0) GO TO 8015 

ISN 014B KDWR - SRtK, 1 1*STGYHW (Kt J »**PlC IK , 11 

ISN 0149 GO TO 8010 

ISN 0150 8015 LX s MODE ( K * 1 J 

ISN 0151 IF ( STGYHW I Kt J) • IE • POJ (LX1 1 HOHR » SR J I IX, 1 ) /STGYHW CK, J1 

ISN 0153 1 F ( STGYHW t K« J ) .GTtPt)J(LX) ) HOHR * SRJ I LX,2 >£SRJ ILX,3I /STGYHW I Kt J 1 

ISN 0155 8010 00 692 L » 1,2 

ISN 0156 H.Lt I 

ISN 0157 IFISTGYTR(K,J,L).EO.O.O) GO TO 692 

ISN 0159 I F I MODE! K, HI ,NE.O) GO TO 8011 

ISN 0161 RECUR 1 1 1 J,L 1"RECUR! I t J, L) £HDWR£SR I K t M)»STGYTR( K,J,L )**PLC(X,H ) 

ISN 0162 GO TO 692 

ISN 0163 8011 IX - HODEIKtH) 

ISN 0164 IFISTGYTR{K,J *L ) *LE .POJ !LX ) 1 RECURU,J ,L» - RECUR M , J ,U 

1 8 SRJlLXrl I/STGYTR(X,J ,U £ HDWR 

ISN 0166 IF (STGYTR (K, J ,L) .GT.POJ(LX ) ) RECURlItJ ,L) ■ RECURl l,J ilt 6 

1 SRJ t LX ,2 ) £ 5RJ ( LX,3 ) /STGYTR (K,J ,1) C HDWR 

ISN 0168 692 CONTINUE 

ISN 0169 634 CONTINUE 


ISN 

0170 


IF (HS.E0.4) GO TO 633 

ISN 

0172 


I F IVEHf KS£ 1«I).EQ.0) GO TO 633 

ISN 

0174 


Kl > vEHiHSCit il 

ISN 

0175 


IF(NCI.EO.O) GO TO 633 

ISN 

0177 


DO 636 L-I,NCf 

ISN 

0178 


00 637 KY-1,4 

ISN 

0179 


IF (NFHL! LI «NE .NFS (K, KYI ) GO TO 637 

ISN 

0181 


00 638 KE « 1,4 

ISN 

0182 


IF (NFHU(L) .EQ.NFS! Kl , K Z ) 1 GO TO 639 

ISN 

0184 

638 

CONTINUE 

ISN 

0185 

637 

CONTINUE 

ISN 

0186 


GO TO 636 

ISN 

0187 

639 

DO 640 J * 1,HYRS 

ISN 

0188 


IF IRINTYR IL,J)*E0*0.0} GO TO 640 

ISN 

0190 


HDWR ■ Rl NT t L ) *R I NTYR 1 L , J ) **PLC I NT (L ) 

ISN 

0191 


RECUR II, j,l) - RECUR<I,J,1> £ HDWR 

ISN 

0192 


RECUR! I , J,2 ) ■ RECURl I , J*2 ) £ HOHR 

ISN 

0193 

640 

CONTINUE 

ISN 

0196 

636 

CONTINUE 

ISN 

0195 

633 

CONTINUE 

ISN 

0196 

632 

CONTINUE 

ISN 

0197 


I FLAG - I 

ISN 

0198 

99 

RETURN 

ISN 

0199 


END 


END OF COMPILATION 




F88-LEVEL'L.JNKAGE EOITO* OPTIONS' ‘SPEC IFIED' LI ST'i XREFTfiAPYNCAL 
\ VARIABLE OPTIONS USED - SI ZEM126976, 24576) 

\ IEHOOOO NAME MOXOZSM(R) 

I EW04 61 VEHRC 
*>)l£H0A6l FRXPR* 

1EW0461 IBCOM- 


DEFAULT OPTION(S) USED 




CONTROL 

SECTION 


ENTRY 


NAME 

ORIGIN 

LENGTH 

NAHE 

LOCATION 

STGNUK 

00 

F98 



SAVESH 

F98 

30F8 



SAVEA 

4090 

2160 



SAVblll 

61 FO 

410 



SAVECZ 

6600 

3654 


» 

SAVENV 

9C58 

8 




CROSS REFERENCE TABLE 


NAME LOCATION NAHE LOCATION NAME LOCATION MAKE LOCATION 


9C60 4 

9C68 8 

9C70 47A4 


LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYH80L 

IN CONTROL SECTION 

186 

SAVESM 

SAVESM 

ISC 

SAVESM 

SAVESH 

190 

SAVESM 

SAVESH 

194 

SAVEA 

SAVEA 

198 

SAVEA 

SAVEA v 

19C 

5AVEB1 

SAVEB1 

1A0 

SAVECZ 

SAVECZ 

1A4 

SAVECZ 

SAVECZ 

1A8 

SAVEC2 

SAVECZ 

1 AC 

SAVENV 

SAVENV 

ieo 

5AVE5G 

SAVESG 

1B4 

SAVENR 

SAVENR 

IBS 

SCRACH 

SCRACH 

1BC 

SCRACH 

SCRACH 

ICO 

VEHRC 

^UNRESOLVED 

1C4 

FRXPR* 

AUNRESOLVEO 

1C8 

IBCOM* 

SUNR6S0LVED 





ENTRY ADDRESS 
TOTAL LENGTH 



NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


A 

J (171 


OS/ 3 60 FORTRAN H 


DATE 70.105/09.13 II 


COMPILER OPTIONS - NAME* MAIN, OPT=02, L INSCN7=44 .SOURCE , BCD, NOLIST.NODECK, LOAD,NOHAP,NOEOIT* JO.NOXft 


JSN 0003 
s. ISN 0004 

V ISN 0005 

} ISN 0006 

ISN 0007 


ISN 0012 
ISN 0013 
ISN 0014 
ISN 0015 
ISN 0016 
ISN 0017 
ISN 0018 
ISN 0019 
ISN 0020 

[ ISN 0021 

( ISN 0023 

ISN 0025 
’ ISN 0026 
ISN 0028 
ISN 0029 
V. ISN 0031 
O 1 ISN 0033 
} ISN 0034 

V j: 

~ AT 

r// 


SUBROUTINE TCOSTC J, BLANK, ASTR J 
CALCULATE TOTAL COSTS 
DOUBLE PRECISION NAME 
LOGICAL SKIP 
INTEGER H 

INTEGERS IVEH,LV$,NSTRST,LVARY,lVO.NYR$$T»NLVP,lABEL»LN0ATe,VEH 

COHMON/PLSAVE/TITLEHOI, FIXED 1 20 )i LEVEL! 20>,CNTRVLf20>* 

1 PHAX,PMIN,ACCL,EXT,ISTRTtIFlN,MAXlTR,NCSTR 
COMMON/SCR ACH/ TOTAL (20) »W ( 20) , NSL 110) »N0P(?2> VLVSF (66) ,0120) , 

1 XLVSUHC 20, 501 ,XOUT (20) , VOUT ( 20) ,RF ( 72 ) ,CF (72>,SF(72)« FLAGR (72) , 

2 FLAGS ( 72 1 *PRQG» 10DD* KVEHI ( 50 ) *RRR( 20) , IMAGE. 1830 ) ,YEAR( 201 , 

3 Y ( 201 ,NSSF 172 )*NSRF(72 1 ,NSXF(72 1 tNDSF 172 1 , SUSTF172) *VNAH C66 ) , 
4NSCALE C5 1 , RECUR (20,50 1 ,NSTRRC (72 1 1 NYRSRC 1721, LNOFI 72) .KVEHI 601* 

5 I ERR* SKIP , MYFLAG.NPROl 901 ,KPRO( 901 tOUHSt 1451 J 

COMMON/ SAVE S/M* H» IVEH ( 66) *LV5 (66 ),S( 72) ,NSTRST 1721 »RI 72 1 *LVARY ( 66) 

1 ,LVO( 66) , NLVPt 72 1 ,XSCH( 10,661, LABEL! 501 ,NCS»CS (90) , 

2 NPROr (901 tKPROG (SO) ,KOOE (90) , LNDATE (72) 

COMMON/SAVEfl/NAHE(56), M ITR* ALP 1(4, 601 ,C( 72 1 , SUS( 72 ) * 

1 PLR(50>,R0IST(56t4)»RFIX0(12,72UNSTRFX(72)*NYR5FX(72),TREF 

COMMON/SAVEB1/NMIS,VEK(4 ,60) ,F1NISH,RC0ST(61 1 ,5TG(40) ,NSPR, 

1 NYRSSTI72) 

55 J « O 

DO 70 L* 1 ,N 
FLAG * 0. 

T • 1.0 ’* 

AYRS ■ R(D CIO 
DO 60 K* 1 , 20 
F o 0. 

IT * T - S(L) € TREF 

X^« (T - S(L) C TREF) / AYRS 

X.LE.O PROGRAM DEV. HASN»T STARTED YET - X.CE.l PROGRAM OEV. IS OVER 
IF (X.LE.O.) GO TO 59 ' 

IF (X.GE.l.) GO TO 56 

BETA DISTRIBUTION FOR CIL) 

F • ( (X*(l.-X))**2) * 30. * CCLI / AYRS 

56 IF ( NYRSST { L ) « EQ « 0 ) GO TO 57 
I » 1 T — NSTRSTIL1 

IF (I.GE.O.AND.l.LT.NYRSSTtLl) F * FCSUS ID 

57 IF (NYRSRC(L).EQ.O) GO TO 58 
1 = IT — NSTRRC(L) 

IF ( I .GE. 0 AND. I. LT. NYRSRC (LI) F-FCRECURI I C I ,L1 
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i* 



j ISN 00*9 

ISN 0050 
! ISN 0051 

j ISN 0053 

ISN 0055 
‘ ISN 0057 

i ISN 0059 

, ISN 00 60 

ISN 0061 

* ISN 00 62 

' 1 SN 0063 

ISN 006* 
I ISN 0065 

j ISN 00 66 

: I5N 0067 

ISN 0060 
} ISN 0069 

* ISN 0071 

5 ISN 0073 

' ISN 007* 

ISN 0075 
ISN 0076 
ISN 0077 
ISN 0070 
ISN 0079 
•ISN 0000 
ISN 0081 
ISN 0002 



ISN 0000 
ISN 0009 


50 IF (NYRSFX<L).EO.O> GO 70 59 
I - IT - NSTRFX I l ) 

IF (NGE.O.AND. I .IT.NYRSFXU) 1 F«F£RF IXOl l£l iL) 

59 D(K ) ■ F 

C H(K) IS TOTAL COST IN YEAR K 
,W(K> » NIK) Z OllO 

IF IOIKI.EO 0. .AND. FLAG. EO. 1. 1 GO TO 65 
IF IO{K ) .NE • 0. ) FLAG « U 

60 T * T £ 1,0 
K ■ 21 

65 K = K-l 

J * HAXO IJiK) 

'if I SKIP) GO TO 70 
IFIL.LE.NHISCNSPR1 

1WRITE (6*96) L,NAHE1L)« (Dl Dtl-lfK) 

IFIL.G7.NMISGNSPR) WRITE (6.09) l, LABELI L-NHlS-NSPR) * IDU1 » I *1 »K) 
IF (NLVP(L).EQ.O) GO TO 70 
!J « NLVPIL) 

H • LVARYCL) 

00 69 II -It I J 
00 67 I* 1» 20 
XOtlTIU » BLANK 

67 VOllTin * BLANK 
XSUa « LVS(H) 

I A ■ SID - TREF £ XSUB 
lb « IAtLVDtm-1 
'00 68 I- 1 A, 1ft 
IF U.LT,|> GO TO 68 
IF II.GT.20) GO TO 68 
1C = I-IAGI 
XOUT(I) =» ASTR 
V0UTII1 » VNAK(H) 

KK * lVEH(H) 

ILV =■ KVEHtKK) 

XLVSUMII.ILV) * XIV SUM (I » ILV) £ XSCHMCtH) 

68 CONTINUE 

WRITE (6,9011 { VDUT ( I ) , XOUT (I 1 1 1 ■ l ? K ) 

69 H - H C 1 

70 CONTINUE 

DO 75 1*1, J 

75 TOTAL! 1) - W ( I ) CFlXEDtl) 

RETURN * 


09 ’FORMAT ( 13, 1X»*HDEV ,I2,20F6.0) 
98 FORMAT 113, IX , A6, 20F6.0) 

901 FORMAT (IIX,20< A* t A2> I 
END 


****** ENO OF COMPILATION ****** 


I 
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£ I F 88-LEvEL CINJCAGE^EOITOR OPTIONS SPECIFIED L~1ST,XREF”,MAP7NCAL 
1 / I VARIABLE OPTIONS USED - SI ZE-< 126976,24576 1 

| / IEKOOOO NAME M0X02TT<R) 

I IEH04 61 1BCUM- 


OE FAULT OPTION! S) USED 


CROSS REFERENCE TABLE 


CONTROL SECTION 


NAME 

ORIGIN 

LENGTH 

NAME LOCATION 

NAME LOCATION 

NAME 

LOCATION NAME 

TC05T 

OO 

784 





PLSAVE 

768 

138 





SCRACH 

8F0 

47A4 





SAVES 

5098 

1660 





SAVE© 

66F8 

1BD0 





SAVEBl 

82CB 

410 





LOCATION 

REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

150 


PL SAVE 

PLSAVE 

154 

SCRACH 

SCRACH 

158 


SCRACH 

SCRACH 

15C 

SCRACH 

SCRACH 

160 


.SCRACH 

SCRACH 

164 

SAVES 

SAVES 

168 


SAVES 

SAVES 

16C 

SAVEB 

SAVEB 

170 


SAVES 

SAVES 

174 

SAVE81 

SAVEBl 

178 


IBCOM» 

SUNRESOLVE0 




ENTRY ADDRESS 

00 





TOTAL LENGTH 

8608 






NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 

IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAl WAS SPECIFIED, 


'/ T * Y 

f . S V 


t;— 
/• » 


OS/ 3 60 FORTRAN H 


DATE 70.105/09.13,41 


ISN 0003 
ISN 0004 


ISN 0005 

ISN 000 6 

ISN 0007 

ISN 0008 

ISN 0009 
ISN 0010 
ISN 001 l 
ISN 0012 
ISN 0013 
ISN 0014 
ISN 0016 
ISN 0017 
ISN 0018 
ISN 0019 
ISN 0020 
ISN 0021 

ISN 0022 

ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0027 
ISN 0029 
ISN 0030 
ISN 0031 
ISN 0032 
ISN 0034 
ISN 0035 
ISN 0036 


COMPILER OPTIONS - NAME- MAIN, GPT-02,LINECNT«44 , SOURCE ,BCD,NOLIST,NOOECK, LOAD, NOHAP.NOEDIT , 
2 SUBROUTINE VEKRC 

C DETERMINE * AVERAGE' RECURRING COST UF EACH VEHICLE 
C 

>3 INTfcGER*2 LYR, LETT, MIN, 1 S,NONREC,NYD»LABS, LABF, LABI, MAT, VEH,LYD, 

'1 NYRSST 

(4 COMHON/SAVEA/NH, YRLH (250 >, LYR ( 252 >, LETT (250) ,HIN(250>, 

1 DS 1 50) « SUST I SO) « YDI 50 ) , IS ( 106 ) « NUHD,NONREC( 60, 201 ,NYOISO> * 

2 LABSI40),LABF|30), LABI 1401* RXOI 12,50 > »HAT 1 501 

i5 CnMMtJN/SAVEttl/NHlS,VEH(4,60l,FlN|SH,RrUST(61),STG|40)»NSPR, 

I NYRSS 1 1 7? I 

6 COMMON/ SAVEC2/KECUR t 60,20,2 1 , VNHI4 , 250 ) , LYDl 50 J ,NEXT, GUESS, 

1 LTR150) 

7 COMMON/SAVENV/NV.MYRS 

c THE following storage need not be SAVED 

8 COMMON/ SCR ACH/ V YT R (60,20,2)* DUMV 12185) 

C COUNT NUMBER OF EACH VEHICLE USED BY YEAR AND TEST RANGE 

9 DO 8032 1 * I »NV 

0 DO 8032 J * i,MYRS 

1 OO 8032 K ■ 1,2 

2 8032 VYTRC I , J ,K) - 0.0 

3 OO 0033 L - 1*NM | 

4 IF (YRLHILl.EO.O.OI GO TO 8033 | 

6 I • M IN ( L ) \ 

7 J « LYR(LI 1 

8 M - LETTIU 

9 K *. LTR(H) 

.0 VYTR ( I , J,K) - VYTR 1 1 , J,K ) C YRLHCL) 

!1 8033 CONTINUE 

C DETERMINE •AVERAGE* RECURRING COST OF EACH VEHICLE 

>2 DO 8034 I « 1,NV 

3 RCOSTin ■ 0.0 

!4 TVEH - 0.0 

5 OO 8035 J * l.MYRS 

!6 00 8035 JC « 1,2 

!7 IF (VYTR ( I , J ,K) .EQ»0,0) GO TO 8035 

!9 RCOST(I) • RCOSTin £ VYTRU,J,K) * RECUR(l,J,K) 

10 TVEH * TVEH C VYTR(I,J,K) 

H 6035 CONTINUE 

12 IF I TVEH. EO* 0.01 GO TO 8034 

14 RCOST(I) « RCOSTtM /TVEH 

15 8034 CONT INUE 

16 99 RETURN 


V J- 
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CONTROL SECTION ENTRY 

NAME ORIGIN LENGTH NANE LOCATION NAME LOCATION MAKE 

VEHRC 00 208 

SAVEA 208 2160 

SAVEB1 2638 AID 

SAVECZ 2868 3656 

SAV6NV 5EA0 8 

SCRACH 5EA8 67A4 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL 


CO 

5AVEA 

SAVEA 

C6 

SAVEA 

C8 

SAVEB1 

SAVES 1 

CC 

SAVECZ 

00 

SAVECZ 

SAVECZ 

06 

SAVECZ 

08 

SAVENV 

SAVENV 

DC 

SCRACH 

EO 

SCRACH 

SCRACH 



ENTRY ADDRESS 

00 




TOTAL LENGTH 

A650 




****H0X02VC NOW 

REPLACEO IN 

DATA SET 





LOCATION NAME 


IN CONTROL SECTION 

SAVE A 
SAVECZ 
SAVECZ 
SCRACH 
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